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.REM 



IDENTIFICATION 



PRODUCT ID: 



AC-T722A-NC 



PRODUCT TITLE: 



CZTSOAO TSU05 DIAG PART 4 



DEPARTMENT: 



COMPUTER SPECIAL SibTEMS/PPG 



DATE: 



APRIL 26. 198S 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT NAY APPEAR TN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY 0^ 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1982. 198S BY DIGITAL EQUIPMENT CORPORATION 



THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

DIGITAL POP UNIBUS MASSBUS 

DEC DECU5 OECTAPE 
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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

THIS IS A PDP-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF A TSUOS MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11//23 SYSTEM 
CO -BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE. 



THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFmCE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP». ACT. APT. SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES. REFER 
TO THE XXOP* USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

POP -11 PROCESSOR AND MEMORY 

CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 
(28K USEABLE AND 4K RESERVED FOR I/O PAGE) 
TSUOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 
CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 54 OR LATER) 
POP II DIAGNOSTIC LOADER/MONITOR (XXOPO 



1.3 RELATED DOCUMENTS AND STANDARDS 
DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 

1. CHQUS XXDP» USERS MANUAL t DOCUMENT NUMBER AC-F348E-MC 
DATE: 14 JULY 1980, 

2. TSUOS TRANSPORT SUBSYSTEM USER'S GUlDEi DOCUMENT NUMBER EK TSU05 UG-OOl 
DATE: AUGUST 1982 

3. TSUOS TRANSPORT SUBSYSTEM TECHNICAL MANUALi DOCUMENT NUMBER EK-TSUOS-TM 001 

DATE: AUGUST 1982 

4. TSUOS TRANSPORT SUBSYSTEM INSTALLATION MANUALi DOCUMENT NUMBER EK- TSUOS -IN -001 
DATE: AUGUST 1982 



1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL POP -11 CENTRAL PROCESSOR ANO MEMORY 
FUNCTIONAL CONSOLE TERMINAL 
FU^.CTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FJNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDPO 
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1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THE TAPE BEING USED ON THE TS05 TRANSPORT IS A KNOWN GOOD REEL 
Of TAPE. 

CZTSAA.CZTSBA AND CZTSCA HAVE SUCESSFULLY RUN. 

2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION. REFER TO THE XXDP* USER'S MANUAL (CHQUS). 

2.1 COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXOP» USER'S MANUAL HAS MORE DETAILS. 



COMMAND EFFECT 



START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXOP* MONITOR (XXOP* OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARb 

CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL li^OWIATION (IF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.S) 



A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
vOU MAY. FOR EXAMPLE. TYPE "STA" INSTEAD OF "START". 

2.1.1 OPERATOR COMMANDS 



THE TSU05 DIAGNOSTIC IS A PDP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 

PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 

CHQUS XXDP* USERS MANUAL .DOCUMENT NUMBER ACF348E-MC. THE USER ENTRY IS IN QUOTES. 

BOOT THE DIAGNOSTIC XXDP MEDIA 

.R VTSO?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 
CZTSO-B-O 

♦♦*»TSU05 LOGIC DIAGNOSTIC**** 

UNIT IS TSU05 

>0R 
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2.2 SUITCMES 

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MOOIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COHTIANDS. ALL Of THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 
IN THE DESCRIPTIONS BELOW. A DECIHAL NUHBER IS DESIGNATED BY "DDDOD". 

SWITCH EFFECT 

/TESTS: LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUHBERS. FOR EXAtiPLE - /TESTS: 1 :5: 7-10. 
THIS LIST WILL CAUSE TESTS 1.5.7.6.9.10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 

/PASS: 00000 EXECUTE 00000 PASSES (00000 ■ 1 TO 64000) 

/FLAGS :FLGS SET SPECIFIED FLAGS. FLAGS ARC DESCRIBED 
IN SECTION 2.3. 

/EOPrDODDO REPORT END OF 'ASS MESSAGE AFTER EVERY 

DOOOO PASSES ONLY. (DODOO ■ 1 TO 64000) 

/UNITS: LIST TEST/AOO/OROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS :0: 5: 10- 12 
USE UNITS 0.5.10.11.12 (UNIT NUMBERS > 0-6S) 

EXAMPLE OF SWITCH USAGE: 

START/TESTS: 1-5/PASS: 1000/EOP: 100 

THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS I THROUGH 5 WILL BE 
EXECUTED. 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS *CSSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY. 
FOR EXAMPLE. TYPE -/TES:l-5" INSTEAD OF "/TESTS: 1-5 •. 

BELOW 13 A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 



START X 
RESTART X 
CONTINUE 
PROCEED 

DROP X 
ADO X 
PRINT 

DISPLAY X 

FLAGS 

ZFLAGS 

EXIT 

2 . 3 FLAGS 

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS CWITCH. FLAGS 



PASS 


FLAGS 


EOP 


UNITS 


X 
X 
X 


X 
X 
X 
X 


X 
X 
X 


X 
X 
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MRE ALSO CLEARED AFTER A START CONIANO UNLESS SET USING THE 
FLAG SMITCH. THE Z^LAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. UITH THE EXCEPTION OF THE START AND ZFlAGS COMMANDS. 
NO COrtlANOS AFFECT THE STATE OF THE FLAGSi IHEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 



FLAG EFFECT 



HOE HALT ON ERROR - CONTROL IS RETURNED TO 

RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

lER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE. NU^ER. PC. TEST AND UNIT) 

IXE« INHIBIT EXTENDED ERROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBEi) AS TEST EXECUTES 

BOE "BELL " ON ERROR 

UAM UNATTENDED NODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 

STATISTICAL REPORTING) 
IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 



*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 



SEE THE XXOP* USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAT 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE. 
TO CAUSE THE PROGRAM TO LOOP ON ERROR. INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR. YOU MAY USE THE FOLLOWING STRING: 

/FLAGS : LOE :IER: BOE 



2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED. THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?" 
YOU MUST ANSWER "Y" AFTER A START COMMAND UNLESS THE HARDWARE 
ItrORMATION MAS BEEN -PRELOAOEO" USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP» USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A "Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR). THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 

ON A "N" (NO) RESPONSE TO THE "CHANGE HW?" QUESTION, THE DIAGNOSTIC WILL 

RUN USING THE DEFAULT VALUES FOR ALL QUESTIONC. THE DEFAULT ADDRESS AND VECTOR ARE: 
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>SBA/TSDe • 172520. VECTOR • 224 



CN A - Y ■ (YES) RESPONSE TO THE QUESTION. THE FOLLOWING QUESTIONS UILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE. IF PRESENT. LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(O)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(O)" INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "(L)" INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
• Y" FOR YES. "N" FOR NO. 

• UNITS (D) 7 <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED > 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 

TSBA/TSDB REGISTER) 

VECTOR (0) 224 ? 'ENTER ADDRESS OF INTERRUPT 

VECTOR> 

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE UNITS?" QUESTION. LXICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER. BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSUOS CONTROLLERS PER POP- 11 AND UP TO 2 DRIVES PER CONTROLLER 

2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTA»)T 

OR CONTINUE COMMMO, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MOOES. YOU WILL BE PROMPTED BY "CHANGE SW (L) ?" 

IF YOU WISH TO CHANGE ANY PARAMETERS. ANSWER BY TYPING 

"V". THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPH(S). 

THE FOLLOWING QUESTIONS ARE ASKED ON A START. RESTART. OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SW CD ? <TyPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKEO> 

INHIBIT ITERATIONS (L) N ? <TYPE "Y" TO PREVENT MULTIPLE 

ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 

2.6 EXTENDED P TABLE DIALOGUE 

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU APE BUILDING ENTRIES 
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IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST, THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
tWIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES. THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 

TO ILLUSTRATE A MORE EFFICIENT METHOD. SUPPOSE YOU ARE TESTING 
A DEVICE. THE XYll. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q FACTOR. THIS Q-FACTOR MAY BE 0 OR I. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XYll WITH EIGHT UNITS. 

« UNITS (D) ? 8<CR> 

UNIT I 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 0<CR> 
Q-FACTOR (0) 0 ? 1<CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 1<CR> 
Q-FACTOR (0) I ? 0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 

UNIT 8 

CSR ADDRESS (0) 160000<CR> 

SUB-DEVICE ♦ (0) ? 7<CR> 
Q-FACTOR (0) 1 ? <CR> 
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NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTQR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 

AS YOU CAN SEE FROM THE ABOVE EXAMPLE. THE HARDWARE PARAMETERS 

00 NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 

NOT VERY EFFICIENT. 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE . 

* UNITS (D) ? e<CR> 
UNIT X 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 0.1<CR> 
Q-FACTOR (0) 0 ? 1.0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? 0<CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 6.7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE. THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE THO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS. FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE. SUB-OEVICES 
2. 3. 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

« UNITS (0) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0. 1 .0. . . . 1, 1«CR> 

AS YOU CAN SEE FROM THIS EXAMPLE. NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 
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2.7 QUICK START-UP PROCEDURE (XXOPO 
TO START-UP THIS PROGRAM: 

1. BOCr XXOP* 

2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ (IF THERE 
IS A CLOCK) QUESTIONS 

S. TYPE "R NAME", WHERE NAME IS THE NAME OF THE SIN OR BIC 
FILE FOR THIS PROGRAM 

4. TYPE "START" 

5. ANSWER THE "CHANGE HW" QUESTION WITH "Y" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOLLOW THIS PROCEDUR'" YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL. BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE "lER" FLAG IS SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 

.WHERE: NAME - DIAGNOSTIC NAME 

TYPE - ERROR TYPE (SYS FATAL. OEV FATAL. HARD OR SOFT) 
NUMBER - ERROR NUMBER 

UNIT MJMBER - 0 - N (N 13 LAST UNIT IN PTABLE) 
TST NUr«ER - TEST AND SUBTEST WHERE ERHOR OCCURRED 
PCtXXXXXX - ADDRESS OF ERROR MESSAGE ''ALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOU" THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "lER" OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CON'iENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "lER". "IBR" OR "IXE" FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 
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BELOU ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DirPERENT TtPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 

ERROR MESSAGE EXAMPLE 1 

THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 
TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIOES THE REGISTER BITS AM) THEIR riNEMONICS FOR THE 
INCORRECT REGISTER OR STATUS UORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 
DATA. 



TST: 016 FIFO EXERCISER TEST 

CZTSD HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS CIN WORD 9) INCORRECT AFTER WRITE FIFO 

TAPE BUS SIGNALS IN UORD «6: - DESIGNATOR <BIT *> 

PARERR<1S> lEOT <12> IFHK <9> IR0Y<6> ZRU0<2> 

IRESV2<14> IIDENT<11> IHER <6> Z0NL<5> IFBY<1> 

IRESVl<13> ICER <10> ISPEED<7> ILDP<4> IFPT<0> 

TAPE BUS SIGINALS IN UORD *9: 
DATMIS<7> ILU<6> 0UTRDY<5> INRDY<4> 
MESSAGE BUFFER ADDRESS - 047352 
MESSAGE BUFFER CONTENTS: 
UORD «0 EXPO: 100020 RECV: 



UORD «1 EXPO: 000012 
UORD 92 EXPO: 000000 
UORD «3 EXPO: 
UORD «4 EXPO: 
UORD 95 EXPO: 000000 
UORD «6 EXPO: 000000 
UORD *7 EXPO: 
UORD *8 EXPO: 
UORD »9 EXPO: 



000010 
000000 



000000 
070217 
000074 



100020 
RECV: 000012 
RECV: 000000 
RECV: 000010 
RECV: 000000 
RECV; 000000 
RECV: 000000 
RECV: 000000 
RECV: 070217 
RECV: 000034 



XOR: 000000 
XOR: 000000 
XOR: 000000 
000000 
000000 
000000 
XOR: 000000 
XOR: 000000 
XOR: 000000 
XOR: 000040 



XOR 
XOR 
XOR 



ERROR MESSAGE EXAMPLE 2 

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE. IN THIS 
INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
HAY BE DEFECTIVE. 

CZTSD HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR - 100214 

TSSR BITS SET: SC.SSR 

TERMINATION CLASS CODE - UNRECOVERABLE ERROR 

PACKET ADDRESS - 026420 

PACKET UORD * - 140010 

PACKET UORD * - 000010 

PACKET UORD « ' 000000 

PACKET UORD « « 000024 



ERROR MESSAGE EXAMPLE 3 
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THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 



CZTSD HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC, 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 



4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS. THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION ?.2 DESCRIBES SWITCHES. 

SUCCESSFUL RUN EXAMPLE (PDP-11) 



DR>STA/FLA:PNT:HOE 
UNITS (0) ? 1 
UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 
CHANGE SU (L) ? N<CR> 



THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE "PRINT EACH TEST NBR AS EXECUTED" AND "HALT ON 
ERROR". 

TST: 001 SKIP TAPE MARKS TEST 

TST: 002 NO-OP AND INITIALIZE TEST 

TST: 003 ERASE AND OPERATION INCOMPLETE TEST 

TST: 004 DATA PARITY TEST 

TST: 005 TEST OF OPERATIONS AT EOT TEST 

TST: 006 EXTENDED-MODE FUNCTIONS TEST 

TST: 007 RECORD BUFFERING TEST 

TST: 008 FUNCTION TIMING TEST 

0 ERRORS 

NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT HAS 
BEEN SPECIFIED WITH THE "/PASS:" SWITCH. 

PROGRAM RUN TIMES 

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THEbE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-11 
PROCESSOR WITH A LA34 CONSOLE. 



UScR DOCUHLNTATION 
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Ni 



SEQ 013 



THE PROGRAM RUNS IN TUO MODESi NO ITERATIONS AND DEFAULT MODE. IN THE 

NO ITERATIONS MODE. EACH TEST IS RUN ONCE. WITH NO ITERATIONS. IN THE 

DEFAULT MODE EACH TEST IS REPEATED BY THE NUTTER OF TIMES INDICATED BY 

THE ITERATION COUNT. NO ITERATIONS MODE iS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES). 



TEST N/I NUMBcR DEF 

NUMBER SECS. ITER SECS. 

112 1 

2 110 

3 110 

4 110 

5 110 

6 110 

7 110 
6 110 



THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 37 IN ONE COMMAND: 

Q.V. 15 SECONDS 

DEFAULT 16 SECONDS 



5.0 DEVICE INFORNATION TABLES 

WUCNEVER THE PROGRAH IS STARTED. VIA THE STA(RT) COMMAND. 
THE SUPERVISOR REQUESTS THE FOLLOWING P- TABLES PARAMETER 
CHANGES: 

CHANGE HW (L) ? 

* UNITS (0) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 

TSBA/TSOB REGISTER > 

VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 

VECTOR > 

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE UNITS?" QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IM ORDER. BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 



IN ADDITION. ON A START. RESTART OR CONTINUE THE SUPERVISOR 
REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS. AS 
FOLLOWS : 



B2 

USER 3OCL»CNTATI0N MACRO mil5 01 FEB 84 18:55 SEO 014 

CHANGE SU (L) 7 
INHIBIT ITERATIONS (L) N ? 



6.0 1EST SUMMARIES 

TEST 1: WRITE TAPE MARK RETRT 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
REVERSE. ERASE. WRITE TAPE MARK). 

TEST 2: SKIP TAPE MARKS 

THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 
FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION 
UNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS 
STOP (ESS) AND ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED 
BY THE WRITE CHARACTERISTICS COTtlAND. 

TEST 3: NO-OP CCLEAN TAPE") AND INITIALIZE 

THIS TEST VERIFIES PitOPER OPERATION OF THE NO-OP ("CLEAN TAPE") AND INITIALIZE 
COMMAND (SPACE REVERSE. ERASE. WRITE DATA) 

TEST 4: ERASE AND OPERATION INCOMPLETE 

VERIFIES THAT AN ERASE COMMAND ISSUED UHEN THE TAPE lb 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 

TEST 5: DATA PARITY TEST 

THIS TEST VERIFIES THAT THE DATA PARITY CIRCUITRY IN BOTH THE CONTROLLER AND THE 
TRANSPORT IS OPERATING PROPERLY BY FORCING DATA RECORDS WITH WRONG PARITY TO BE 
WRITTEN ONTO TAPE AND CHECKING THE RESULTS OBTAINED WHEN THE DATA IS READ. 

TEST 6: OPERATIONS AT EOT 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE. ERASE. WRITE DATA) 

TEST 7: EXTENDED MODE FEATURES 

THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN 
THE CONTROLLER IS IN THE EXTENDED FEATURES MODE. THESE COMMANDS 
ARE; 

REWIND WITH IHMEOIATE INTERRUPT 



C2 
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ir THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE. IT 
IS PLACED THERE VIA A WRITE SUBSYSTEH ME»10RY COMMAND. 

TEST 6: RECORD BUFFERING 



THIS TEST VERIFIES THAT RECORD BUFFERING. USED FOR WRITE DATA 
AND READ NEXT COMHANDS. OPERATES PROPERLY AND IS PROPERLY 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
M74SS CONTROLLER NODULE IS NOT ALREADY IN EXTENDED FEATURES MODE 
CAS CONTROLLED BY THE DIP SWITCH ON THE MODULE). IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFrERiNG HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. 

TEST 9: FUNCTION TIMING 

THIS TEST VERIFIES TH<iT THE TAPE TRANSPORT SEEMS TO BE WRITING 
RECORDS. GAPS. AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 
AND HIGH SPEED MOOES ARE TESTED. IT IS ALSO VERIFIED THAT A 
SKIP TAPE MARKS COMMAND WITH A COUNT OF 6 OF MORE. OPERATE THE 
TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 
REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES Bv 
TIMING VARIOUS TAPE-MOTION OPERATIONS. USING A NUMBER OF 
DIFFERENT TEST RECORD LENGTHS. 



7.0 MAINTEk^E HISTORY 

REVISION A • JUNE 1963 

REVISION B - APRIL 1963 

- FIXED TWO PROBLEMS. ONE IN TEST 1 AND THE 
OTHER IN TEST 6. 

REF. DOYLE TO GRASKY "TSU05 CZTSDA DIAGNOSTIC 
PATCH" I 23 -DEC -62. 



TSV^ PROGRAM HEADER HACRO Ml 115 



01 FEB S4 103 SS 



SCO 016 



1 

3 000000 
4 
10 

11 000000 

12 

IS 

19 

20 

21 002000 
002000 

22 
23 
24 

25 
26 
27 
28 

29 002000 

30 002000 
002000 
002000 
002001 
002002 
002003 
002004 
002005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
002016 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002030 
002030 
002032 
002032 
002034 
002034 
002036 
002036 
002040 



.TITLE TSV2 - PROGRAM HEADER 
.SBTTL PROGRAM HtAOER 
.PSECT A8S 



002000' 



103 
132 
124 
123 
104 
000 
000 
000 

101 

060 

000000 

001217 

105446' 

105600' 

002150' 

002160' 

105674' 

000000 

000000 

000000 

000000 



TSV2: 



!*THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
I THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



.MCALL SVC 
SVC 

.ENABLE LC 
.NLIST BEX.CND 
.ENA8L AMA 
.-.♦2000 
BGNMOO TSV2 



J INITIALIZE SUPERVISOR MACROS 



POINTER BGNSU.BGNSrT.BGNAU.BGNDU.BGNRPT 
HEADER CZTS0.A.0.65S..0 
LINAME:: i DIAGNOSTIC NAME 

.ASCII /C/ 
.ASCII /Z/ 
.ASCII /T/ 
.ASCII /S/ 
.ASCII /D/ 
.BYTE 
3tTE 
.BYTE 



LIREV: 

LtOEPO:: 

LtUNIT; i 

LITIML:j 

LIHPCP: i 

L«SPCP:; 

LlHPfP: 

L»SPTP: 

LILADPi 

LISTA: : 

L»C0:: 

LIDTTP: 

L>APT: : 

LIDTP: : 



.ASCII 
.ASCII 
.UQRO 
.UORO 
.WORD 
.UORO 
.WORD 
.WORD 
.WORD 
.UORD 
.WORD 
'.WORD 
.WORD 



0 
0 
0 

/A/ 

/O/ 

0 

655. 

LIHARD 

LISOFT 

L<HU 

L»SU 

LILAST 

0 

0 

0 

0 



iREVlSION LEVEL 
\0 

{NUMBER OF UNITS 
iLONGEST TEST TIME 
t POINTER TO H.U. 
iPOINTER TO S.W. QUES. 
iPTR. TO OEF. H.U. PTABLE 
iPTR. TO S.U. PTABLE 
iOIAG. END ADDRESS 
iRESEr.VED FOR APT STATS 

lOIAGNOSTIC TYPE 

I APT EXPANSION 

iPTR. TO DISPATCH TABLE 



TSV2 PROGRAM 


HEADER 


PROGRAM HEADER 




002040 


002124' 


002042 




002042 


000000 


002044 




002044 


000000 


002046 




002046 


000000 


002050 




002050 


003 


002051 


003 


002052 




002052 


OOOOOO 


002054 


000000 


002056 




002056 


OOOOOO 


002060 




002060 


003374- 


002062 




002062 


022514 ' 


002064 




002064 


OOOOOO 


002066 




002066 


OOOOOO 


002070 




002070 


022202' 


002072 




002072 


022300' 


002074 




002074 


OOOOOO 


002076 




002076 


003402' 


002100 




002100 


10403S 


002102 




002102 


OOOOOO 


002104 




002104 


021406' 


002106 




002106 


022466' 


002110 




002110 


022406' 


002112 




002112 


021376' 


002114 




002114 


OOOOOO 


002116 




002116 


OOOOOO 


002120 




002120 


OOOOOO 



31 
32 
33 
34 
35 
36 
57 
38 
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.WORD LtOISPATCH 
LtPRIO:: iDIAGNOSTIC RUN PRIORITY 

.WORD 0 

LtENVl:: iFLAGS DESCRIBE HOW IT WAS SETUP 

.WORD 0 

LtEXPl:: lEXPAHSION UORD 

.WORD 0 

L*MREV;: iSVC REV KND EDIT 0 

.BYTE CIREVISION 

.BYTE CIEDIT 
L»EF:: iDIAQ. EVENT FLAGS 

.WORD 0 

.WORD 0 

LtSPC:: 

.WORD 0 

LtOEVP:: , POINTER TO DEVICE TYPE LIST 

.WORD LIOVTYP 
LtREPP:: jPTR. TO REPORT CODE 

.UORD L*RPT 

L»EXP4: : 

.WORD 0 

LtEXPS: : 

.WORD 0 

LtAUT:: ,PTR. TO ADD UNIT CODE 

.WORD LtAU 

LtOUT:: tPTR. TO DROP UNIT CODE 

.WORD LIDU 

LtLUN:: iLUN FOR EXERCISERS TO FILL 

.WORD 0 

LtDESP;: iPOINTER TO OIAG. DESCRIPTION 

.WORD LtDESC 
LILOAD:: i GENERATE SPECIAL AUTOLOAD EMT 

EMT E*LOAD 
LtETP:: {POINTER TO ERRTBL 

.WORD 0 

LtlCP:: tPTR. TO INIT CODE 

.WORD LIINIT 
LtCCP:: (PTR. TO CLEAN UP CODE 

.WORD LICLEAN 
LtACP:: jPTR. TO AUTO CODE 

.WORD LIAUTO 
LIPRT:: iPTR. TO PROTECT TABLE 

.WORD LIPROT 
LtTEST:: (TEST NUMBER 

.WORD 0 

LIOLY:: i DELAY COUNT 

.WORD 0 

LtMIME:: |PTR. TO HIGH MEM 

.WORD 0 



.SBTTL DISPATCH TABLE 

; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
I IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 



TSV2 - PROGRAn HEADER MACRO nil 
DISPATCH TABLE 



39 002122 
002122 
002124 
002124 
002126 
002130 
002132 
002134 
002136 
002140 
002142 
002144 

40 
41 
42 
43 
44 
45 
46 
47 

48 002146 
002146 
002150 
002150 

49 

50 002150 

51 002152 

52 002154 

53 002156 
002156 

54 

55 
56 
57 
58 
59 
60 

61 002156 
002156 
002160 
002160 

62 

63 002160 

64 002162 
65 

66 

67 002164 

68 002166 

69 002170 
002170 

70 

71 002170 
72 



000011 

023276' 
032114' 
041222' 
046600' 
052666' 
055702* 
063264' 
073224' 
101010' 



000005 



172520 
000224 
000200 



000004 



000000 
000000 



000017 
000310 
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DISPATCH 9 

.WORD 9 
L IDISPATCH: : 

.WORD Tl 

.WORD T2 

.WORD T3 

.WORD T4 

.UORD T5 

.WORD T6 

.UORD T7 

.WORD T6 

.UORD T9 

.SBTTL DEFAULT HARDUARE P- TABLE 

!*THE DEFAULT HARDUARE P-TABLE CONTAINS DEFAULT VALUES OF 
J THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
I IS IDENTICAL TO THE STRUCTURE OF THE RUN TI»1E P-TABLE. 
I - - 



LIHU:: 
DFPTBL:: 



BGNHU 
.UORD 



DFPTBL 
L 10000 -LIHU/2 



{DEFAULT HARO-P TABLE 



LIOOOO: 



.UORD 
.UORD 
.UORD 
ENOHU 



172520 

224 

PRI04 



» 1ST COF 2) REGISTERS, 
t INTERRUPT VECTOR 
» INTERRUPT PRIORITY. 



. SBTTL SOFTUARE P-TABLE 

TthE SOFTUARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
I PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



LtSU: : 
SFPTBL: : 



BGNSU SFPTBL 

.UORD L 10001 -L)SU/2 



TRANSTST: : 
NOITS:: 



LERRMAX : 
GERRMAX: 

LlOOOl: 



ENOSU 



.UORD 
.UORD 



.UORD 
.UORD 



0 
0 



15. 
200. 



ENABLE TEST OF TRANSPORT(S) IF 
INHIBIT ITERATION OPTION. 
... 0 - ITERATE. 
. . .NZ ■ INHIBIT ITERATE. 
LOCAL (PER TEST) ERROR LIMIT 
GLOBAL (PER UNIT) ERROR LIMIT 



ENDHOD 



rSV3 GLOBAL AREAS 
SOFTWARE P- TABLE 

7 

8 
13 
19 

20 002170 
002170 

21 
22 
23 
24 
25 
26 
27 
28 
29 

33 002170 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
OOOloO 
000100 
000040 
000020 
000010 
000004 
000002 
00000! 



000040 
000037 
000036 
000035 
000034 
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.TITLE 
.SBTTL 



G? 



SEQ 019 



TSV3 - GLOBAL AREAS 
GLOBAL EQUATES SECTION 



TSV3: : 



I ** 



BGNMOO TSV3 



.SBTTL GLOBAL EQUATES SECTION 



J THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST. 



EQUALS 



i GET STANDARD EQUATES. 



i BIT DIFINITIONS 



BIT15-- 100000 
BIT14-- 40000 
BIT13-- 20000 
BIT12-- 10000 
BIT11-- 4000 
BIT10-- 2000 
BIT09" 1000 
BIT08-- 400 
BIT07-- 200 
BIT06-- 100 
BIT0S-- 40 
BIT04-- 20 
BIT03-- 10 
BIT02" 4 
BIT01-- 2 
BITOO-- 1 

BIT9-- BIT09 

BIT8-- BITOa 

BIT7"« BIT07 

BIT6" BIT06 

BIT5-- BIT05 

BIT4-- BIT04 

BITS-- BIT03 

BIT2-- BIT02 

BIT1-- BITOl 

BITO-- BITOO 

I EVENT FLAG DEflNITIONS 

I EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICA i ION 

i 

32 
31. 
30. 
29. 
28. 



EF. START - - 
EF, RESTART • - 
EF. CONTINUE • - 
EF.NEU-- 
EF.PUR-- 
i 
; 



START COMMAND UAS ISSUED 
RESTART COMMAND UAS ISSUED 
CONTINUE COMMAND WAS ISSUED 
A NEW PASS HAS BEEN STARTED 
A POWER -FAIL/POWER UP 0CCL»RREO 



rSV3 GLOBAL AREAS 
GLOBAL EQUATES SECTION 



MACRO m 



000540 
000500 
000240 
000500 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 

34 

35 002170 



0002S0 

177572 
177574 
177576 
172516 
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H2 



SEQ 



J PRIORITY LEVEL DEFINITIONS 



PRI07.- 340 
PRI06-- 5O0 
PRI05-* 240 
?RI04>- 200 
PRI03"- 140 
PRI02"- 100 
PRI01-- 40 
PRI00-- 0 
t 

I OPERATOR FLAG BITS 



EWL- 
LOT- 
ADR* 
lOU- 
ISR- 
UAM- 
BOE- 
PNT- 
PRZ> 
IXE- 
IBE- 
lER- 
LOE- 
HOE- 



.SBTTL 
I •Kill 
MMVEC- 
i*KTll 
SRO- 
SRl- 
SR2* 
SR3- 
.IF NB 
toUSER 
UIP0R0< 
UIPORl- 
UIP0R2- 
UIP0R3' 
UIP0R4 
UIPORS 
UIP0R6 
UIP0R7 
.IF NB 
i*USER 
UOPORO' 
UDPORl' 
UDPDR2' 
U0P0R3' 
U0P0R4< 
U0P0R5< 
U0P0R6< 
UDP0R7- 



4 

10 
20 
40 
100 
200 
400 
1000 
2000 
4000 
10000 
20000 
40000 
100000 

KTll 

»i2?522^II2S^"^^^ DEFINITIONS 
VECTOR ADDRESS 
250 

STATUS REGISTER ADDRESSES 
177572 
177574 
177576 
172516 

"I" PAGE DESCRIPTOR REGISTERS 

• 177600 

• 177602 
' 177604 

■ 177606 

• 177610 

■ 177612 

• 177614 

• 177616 

"D" PAGE DESCRIPTOR REGISTORS 

• 177620 

■ 177622 

• 177624 

■ 177626 

■ 177630 

■ 177632 

■ 177634 

■ 177636 



{DEFINE MtMORY MANAGEMENT REGISTERS 



TSV5 GLOBAL AREAS MACRO MlllS 

nenoRt management definitions 



01 FEB -64 18:55 



12 



SEQ 021 



.ENDC 

i*USER "I" PAGE ADDRESS REGISTERS 
UIPARO- 177640 
UIPARI- 177642 



UIPAR2- 
UIPAR3- 
UIPAR4> 
UIPAR5- 
UIPAR6' 



177644 
177646 
177650 
177652 
177654 



UIPAR7- 177656 
IF NB 

i*USER "0" PAGE ADDRESS REGISTERS 
UOPARO- 177660 
UOPARl- 177662 
UDPAR2- 177664 



U0PAR3' 
II0PAR4' 
U0PAR5' 
U0PAR6- 



177666 
177670 
177672 
177674 



UDPAR7- 177676 
.ENOC 
.ENDC 
IF NB 

i*SUPERVIS0R "I" PAGE DESCRIPTOR REGISTERS 
SIPDRO- 172200 
SIPDRl- 172202 
SIP0R2- 172204 
SIPDRS- 172206 
SIPDR4- 172210 
SIPDRS- 172212 
SIPDR6- 172214 
SIPDR7- 172216 
IF NB 

i*SUPERVISOR "D" PAGE DESCRIPTOR REGISTERS 
SOPDRO- 172220 
SDPDRl- 172222 
SDP0R2- 172224 
SDPDR3- 172226 
S0P0R4- 172250 
SOPORS- 172232 
S0PDR6- 172234 
SDPDR7- 172236 
ENDC 

i*SUPERVISOR "I" PAGE ADDRESS REGISTERS 
SIPARO- 172240 
172242 
172244 
172246 
172250 
172252 
172254 
172256 



SIPAR1< 
SIPAR2' 
SIPAR3' 
SIPAR4< 
SIPAR5' 
SIPAR6< 
SIPAR7' 
. IF NB 

j*SUPERVIS0R "D' 
SDPARO- 172260 
SDPARl- 172262 
S0PAR2- 172264 



PAGE ADDRESS REGISTERS 



TSV5 
MEMORt 



Global areas macho mi 
management definitions 



172300 
172502 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 



39 
40 
41 
42 
43 
44 
45 
46 

4 7 000004 
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J2 



SEQ 02^ 



S0PAR3- 172266 
S0PAR4- 172270 
S0PAR5- 172272 
S0PAR6- 172274 
S0PAR7- 172276 
.ENOC 
.ENOC 

I •KERNEL "T" PAGE DESCRIPTOR REGISTERS 

KIPDRO- 172300 

KIPORl- 172302 

KIP0R2- 172304 

KIP0R3- 172306 

KIPDR4- 172310 

KIP0R5- 172312 

KIPDR6- 172314 

KIP0R7- 172316 

jp NB 
i*KERNEL "D" PAGE 

DESCRIPTOR REGISTERS 
KDPDRO- 172320 
KOPDRl- 172322 
K0PDR2- 172324 
KDPDR3- 172326 
KDPDR4- 172330 
KDPDRS- 172332 
KDPDR6- 172334 
KDPDR7- 172336 
.ENDC 

I •KERNEL -I" PAGE ADDRESS REGISTERS 

KIPARO- 172340 

KIPARl- 172342 

KIPAR2- 172344 

KIPAR3- 172346 

KIPAR4- 172350 

KIPAR5- 172352 

KIPAR6- 172354 

KIPAR7- 172356 

. IF NB 

1 •KERNEL "D" PAGE ADDRESS REGISTERS 

KOPARO- 172360 

KOPARl- 172362 

KDPAR2" 172364 

KDPAR3- 172366 

KDPAR4- 172370 

KDPAR5- 172372 

KDPAR6- 172374 

KDPAR7- 172376 

.ENDC 



.SBTTL TSU05 REGISTER AND PACKET DEFINITIONS 



i SOME GENERAL EQUATES. 



t 



EPRVEC" 



I POINTER TO ERROR VECTOR FOR BUS TIME OUT, 



TSVS GLOBAL AREAS 

TSU05 REGISTER AND PACKET DEFINITIONS 
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ir - 



SEQ 023 



48 

49 

50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
65 
86 
87 
66 
89 
90 
91 
92 
93 
94 
95 
96 
97 
96 
99 
100 
101 
102 
103 
104 



000060 
177560 
177562 
177520 



100000 
040000 
020000 
010000 
004000 
002000 
001400 
000200 
000100 
000060 
000016 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
017375 
000400 
000002 



TTIVEC-- 
TTICSR-- 
TTIBFR-- 
BOVPCR-- 



60 

177560 
177562 
177520 



I INTERRUPT VECTOR FOR CONSOLE IN«>UT 
J BUS ADDRESS OF CONSOLE INPUT 
J CONSOLE INPUT DAT/J BUFFER 
i BDVll PAGE CONTROL REGISTER 



:BIT DEFINITIONS FOR TSSR REGISTER 
> - 



SC- 

6IE- 

SCE- 

RMR- 

NXM- 

NBA- 

HIAODR' 

SSR- 

OFL- 

FATERR- 

TERCLS" 



I ♦ 



BIT15 

BIT14 

BITi3 

BIT12 

BITll 

BITIO 

BIT9!BIT8 

BIT7 

BIT6 

BIT4!BIT5 
BITS!6IT2!BIT1 



{SPECIAL CONDITION 
iBUS INTERFACE ERROR 
i SANITY CHECK ERROR 
I MODIFICATION REFUSED 
:NONEXISTANT MEMORY ERROR 
I NEED BUFFER ADDRESS 
lEXTENOEO ADDRESS BITS 
iSUB SYSTEM READY 
I OFF LINE BIT 

(FATAL TERMINATION ERROR COOES 
t TERMINATION COOES 



iBIT DEFINITIONS 
;(XSTO) 



XSOTMK- 

XSORLS- 

XSOLET- 

XSORLL- 

XSOULE- 

XSONEF- 

XSOILC- 

XSOILA- 

XSOMOT- 

XSOONL- 

XSOIE- 

XSOVCK- 

XSOPEO- 

XSOULK- 

XSOBOT- 

XSOEOT- 



BIT15 

B1T14 

BIT13 

BIT12 

BITll 

BITIO 

BIT9 

BIT8 

BIT7 

BIT6 

BIT5 

BIT4 

BIT3 

BIT2 

8IT1 

BITO 



FOR EXTENDED STATUS REGISTER 0 



{TAPE MARK DETECTED 
(RECORD LENGTH SHORT 
(LOGICAL END OF TAPE 
(RECORD LENGTH LONG 
tURITE LOCK ERROR 
(NQN EXECUTABLE FUNCTION 
(ILLEGAL COMMAND 
(ILLEGAL ADDRESS 
(TAPE IN MOTION 
(TRANSPORT ON LINE 
(INTERRUPT ENABLE 
(VOLUME CHECK BIT 
(PHASE ENCODED DRIVE 
(WRITE LOCKED 
(BEGINNING OF TAPE 
(END OF TAPE 



(BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
{(XSTl) 



Xl.DLT 
XI. SPARE 
XI. COR 
Xl.MBZ 
Xl.RBP 
Xl.UNC 



BIT15 (DATA LATE 

BIT 14 (NOT USED 

BIT13 (CORRECTABLE DATA ERROR 

BIT12»BITll»BIT10>BIT9fBIT7»BIT6»BIT5»BIT4*BIT3*BIT2»BIT0 (ALWAYS 0 

BIT8 (READ BUS PARITY ERROR 

BITl (UNCORRECTABLE DATA OR HARD ERROR 



L2 



TSV3 GLOBAL AREAS MACRO M1113 01 -FEB 84 18:55 

TSU05 REGISTER AND PACKET DEFINITIONS 



SEQ 024 



105 
106 
107 
108 
109 
110 
111 
112 

lis 

114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
ISO 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 



100000 
040000 
035400 
002000 
000200 
000100 
000077 
000007 



177400 
000200 
000100 
000040 
000020 
000010 
000006 
000001 



100000 
040000 
020000 
017400 
000377 



000006 
000006 



000000 
000000 
000001 
000001 



sBIT OEFINITIDNS FOR EXTENDED STATUS REGISTER 2 
i(XST2) 



BIT15 lOPERATION IN PROGRESS (TAPE MOVING) 

BIT 14 tRAn CHECKSUn ERROR 

BIT13*BIT12*BIT11*BIT9*BIT8 iNGT USED BY TSU05 (ALUAYS-0) 
BITIO lURTTE CLOCK TAILURE (FIFO NOT EMPTIED BY TRANSPORT) 

BIT7 tIF URITE CHAR CMD THEN - EXTENDED FEATURFS ENABLED 

BIT6 I IF URITE CHAR CMD THEN • BUFFERING ENABLED 

000077 I IF URITE CHAR CMD THEN - MICROCODE REVISION LEVEL 

BIT2*BIT1*BIT0 tIF GET STATUS THEN > CURRENTLY SELECTED UNIT NO. 



EXTENDED STATUS REGISTER 3 



X2.0PM 
X2.RCE 
X2. SPARE 
X2.UCF 
X2.EXTF 
X2.8UFE 
X2.REV 
X2.UNIT 

!bIT DEFINITIONS FOR 
i(XST3) 

X3.MDE - 177400 
X3. SPARE- BIT7 
X3.0PI - BIT6 
X3.REV - BIT5 
X3.TRF • BIT4 
X3.DCK - BIT3 
X3.nBZ -BIT2*BIT1 
X3.RIB - BITO 

IbIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
j(XST4) 

X4.HSP - BIT15 iHIGM SPEED 

X4.RCE ■ BIT14 iRETRY COUNT EXCEEDED 

X4.TSH • BIT13 i TRANSPORT SPECIAL MODE 

X4.MBZ • BIT12»BITll»BIT10»BIT9»BIT8 :NOT USED ALWAYS 0 

X4.URC - 000377 i URITE RETRY COUNT FIELD 



I* 



I MICRO -DIAGNOSTIC ERROR CODE 
iNOT USED BY TSU05 
{OPERATION INCOMPLETE 
(REVERSE 

i TRANSPORT RESPONSE FAILURE 
I DENSITY CHECK 
tNOT USED ALWAYS 0 
{REVERSE INTO BOT 



iTSSR TERMINATION CODES (BIT 0-2) 



TSREJ' 
UNREC' 



3*2 
6 



I COMMAND REJECTED 
t UNRECOVERABLE ERROR 



DEVICE REGISTER OFFSETS 



TSBA-- 0 

TSDB-- 0 

TSBAH-- 1 

TSDBH-- 1 



tTSDB/TSBA REGISTER 
iTSDB/TSBA REGISTER HIGH BYTE 



M2 



TSV5 GLOBAL AREAS MACRO MIUS 01 ''EB 84 18:55 

TSU05 REGISTER AND PACKET DEriNITIONS 



SEQ 025 



163 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
163 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 



000002 
000005 



000003 



000017 
000013 
000012 
000011 
000010 
000006 
000005 
000004 
000001 



100000 
040000 
020000 
010000 
007400 
000200 
000140 
000037 



000000 
000400 
001000 
002000 
002400 



000167 
000200 
000201 
000210 
000215 
000234 



TSSR-- 2 
TSSRH-- 5 



sTSSR REGISTER 

iTSSR REGISTER HIGH BYTE 



: TSOe ADDRESS BIT DEFINITIONS 

A1716 - BIT1»BIT0 i ADDRESS BITS 17:16 ARE IN 1:0 

rCOMMANO DEFINITIONS 

P.GETSTAT 
P.INIT 
P. CONTROL 
P. FORMAT 
P. POSIT ION 
P.URTSUB 
P. WRITE 
P.URTCHAR 
P. READ 



- 17 


:GET STATUS 


- 13 


(INITIALIZE 


- 12 


i CONTROL COHIiANDS 


- 11 


i FORMAT 


• 10 


(POSITION 


- 6 


(SUBSYSTEM WRITE 


- 5 


(WRITE 


- 4 


(WRITE CHARACTERISTICS 


- 1 


(READ 


HEADER 


WORD BIT DEFINITIONS 



P.ACK 
P.CVC 
P.OPP 
P.SWB 
P. NODE 
P. IE 
P.FMT- 
P.CMD 



- BIT15 (BUFFER AVAIL FOR CONTROLLER 

- BIT14 (CLEAR VOLUME CHECK 

• BIT13 (REVERSE SEQUENCE OF DATA BITS 

- BIT12 (SWAP BYTES IN MEMORY 

- BIT11!BIT10!BIT9!BIT8 (EXTENDED COMMAND MODE FIELD 

- BIT7 (INTERRUPT ENABLE 
BIT6!BIT5 (PACKET HEADER TYPE (ALWAYS-0) 

(MAJOR COMMAND FIELD 



37 



TCONTROL COMMAND MODE CODES 



PC. RELEASE 
PC. REWIND 
PC.NQOP 
PC . lEREW 
PC. ERASE 



- 0*256. 

- 1*256. 

- 2*256. 
■ 4*256. 

- 5*256. 



(RELEASE BUFFER 

(REWIND 

(NO-OP 

(REWIND IMMEDIATE INTERRUPT 
(SECURITY ERASE 



> ♦ 



t CONTROLLER RAM DEFINITIONS 



RMCHBEG < 
RMCHEND « 
RMPKTBEG> 
RMPKTENO- 
RMMSGBEG- 
RMMSGENO* 
( ♦ 



167 
200 
201 
210 
215 
234 



(CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
iCHARACTFRISTICS 10 DATA END RAM ADDRESS 
iCOMT- .CKET BEGIN RAM ADDRESS 
tCOMMANO PACKET END RAM ADDRESS 
(MESSAGE BUFFER BEGIN RAM ADDRESS 
(MESSAGE BUFFER END RAM ADDRESS 



(REGISTER DEFINITIONS IN THE MESSAGE BUFFER 



000006 



XST0« 



(EXTENDED STATUS REGISTER 0 (WORD 4) 



N2 

TSV3 GLOeAL AREAS MACRO nill3 01 -FEB 64 18:55 SEQ 02^ 

TSU05 REGISTER AND PACKET DEFINITIONS 

.^19 000010 XST1-- 8. jEXTENOED STATUS REGISTEH 1 (WORD 5) 

220 000012 XST2-- 10. jEXTENDED STATUS REGISTER 2 (WORD 6) 

221 000014 XST3-- 12. (EXTENDED STATUS REGISTER 3 (WORD 7^ 

222 000016 XST4-- 14. {EXTENDED STATUS REGISTER 4 (WORD 8) 
223 

224 

225 t* 

226 : 

227 ;0FFSETS TO UORD LOCATIONS IN PACKET DEFINITIONS 

228 : 

229 !- 
230 

231 000002 PKLOU « 2 jLOW ORDER CHARACTERISTIC DATA POINTER 

232 000004 PKHI - 4 jHiGH ORDER CHARACTERISTIC DATA POINTER 
235 000006 PKBCNT - 6 ; NUMBER OF BYTES IN DATA PACKET 

234 

235 000010 EXBCNT-10 jNUMBER OF BYTES IN EXTENDED DATA PACKET 

236 

237 s* 

238 jDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
239 

240 000000 BSELO - 0 ;BYTE 0 

241 000001 BSELl - 1 jBYTE 1 

242 000002 SEL2 - 2 :WORD 2 

243 000004 SELDATA - 4 :WORD 3 
244 

245 s* 

246 :BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 

247 {- 

248 000000 PW.NOP » 0 iNO-OP 

249 000001 PW. RDRAM - 1 :READ RAM 

250 000002 PW.WTRAM - 2 : WRITE RAM 

251 000003 PW.RFIFO - 3 ;READ FIFO 

252 000004 PW.WFIFO - 4 {WRITE FIFO 

253 000005 PW.ROSTAT - 5 jREAD STATUS 

254 000006 PU.WCTL - 6 : WRITE TAPE CONTROL 

255 000007 PW.WFMT • 7 j WRITE TAPE FORMAT 

256 000010 PW.UMISC - 10 ; WRITE MISCELLANEOUS 

257 000011 PW.WNPR - 11 ; WRITE NPR CONTROL 

258 000020 PW.D22 - 20 sOO MICROTEST 22 

259 000021 PW.Dll • 21 {DO MICROTEST 11 

260 000022 PW.D13 - 22 (DO MICROTEST 13 

261 000023 PU.N01311 - 23 {DISABLE MICROTEST 11 AND 13 

262 000024 PU.ROEXT - 24 {READ EXT. TAPE STATUS CNOT SUPPORTED BY ALL TRANSPORTS 
263 

264 ,* 

265 {BSELl CODES FOR WRITE TAPE CONTROL 

266 {- 

267 000200 WC.IFAD - BIT7 {IFAD - FORMATTER ADDRESS 

268 000100 WC.IOTAD • BIT6 {ITADO - TRANSPORT ADDRESS BIT 0 

269 000040 WC.IITAO - BITS {ITADl - TRANSPORT ADDRESS BIT 1 

270 000020 WC.I5RESV - BIT4 {IRESV5 - RESERVED #5 

271 000010 WC.IREW - BITS {IREW - REWIND 

272 000004 WC.IRWU - BIT2 (IRWU - REWIND AND UNLOAD 

273 000002 WC.IFEN - BITl {IFEN - FORMATTER ENABLE 

274 000001 WC.IGO - BITO (GO 
275 
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TS005 RtGISTER ANO PACKET DEFINITIONS 



B3 



SEQ 027 



276 




i ♦ 




217 




iBSELl CODES FOR WRITE FOftHAl 


276 




1 - 




279 


000200 


hF . lMl<iP 


BIT7 


260 


000100 


UF.IURT 


BIT6 


2S1 


000040 


UF.IREV 


BIT5 


262 


000020 


UF . IWFH 


BIT4 


26? 


000010 


UF.IEDIT 


BITS 


264 


000004 


UF.IERASE 


BIT2 


265 


000002 


UF,I5RESV 


BITl 


266 


000001 


UF.I4RESV 


BITO 


267 








266 








269 




J ♦ 




290 




iBSELl CODES FOR URITE MISCEl 


291 








292 


000200 


MS. EXT 


BIT7 


295 


000020 


MS.RSFIFO 


BIT4 


294 


000010 


HS.RSTAPE 


BITS 


295 


000006 


MS. ATTN 


BIT2!BIT1 


296 


000001 


MS.RSO 


BITO 


297 




1 ♦ 




296 




t MS. ATTN SUBCODES 


299 








500 


000000 


MSA. NOP - 


0*2 


SOI 


000002 


MSA.VX • 


1*2 


502 


000004 


MSA.NRAN- 


2*2 


505 


000006 


nSA.FRAM- 


5*2 


504 




1 ♦ 




505 




1 MRITE SUBSySTEH URITE NPR I 


506 








507 


000200 


NP.IR 


BIT7 


506 


000100 


NP.OUT 


BIT6 


509 


000040 


NR. LOOP 


B1T5 


510 


000020 




BIT4 


511 




1 ♦ 




312 




1 READ STATUS MESSAGE BUFFER 


515 




t - 




514 








515 


000200 


S2.DIM 


BIT7 


516 


000100 


S2.ILM 


BIT6 


517 


000040 


S2.0UTR0Y 


BITS 


516 


000020 


S2.INR0Y 


BIT4 


519 


000010 


S2.ATI»« 


BITS 


520 


000004 


S2.BTIMR 


BIT2 


321 


000005 


S2.UNDEF 


BIT1*BIT0 


522 


100000 


Sl.PAftlN 


BIT15 


525 


040000 


S1.I2RESV 


BIT14 


324 


020000 


Sl.IlRESV 


BITIS 


3^ 


010000 


Sl.IEOT 


BIT12 


526 


004000 


Sl.IIDENT 


BITU 


527 


002000 


Sl.ICER 


BITIO 


526 


001000 


Sl.IFMK 


BIT9 


529 


000400 


SI.IMER 


BIT6 


550 


000200 


SO.ISPEED 


BIT7 


551 


000100 


SO.IRDY 


81^6 


35? 


000040 


SO.IONL 


BIT5 



IIMISP 
llURT 
iIREV 
iIWFM 
iIEDIT 
I lERASE 
I IRESV5 
i IRESV4 



HIGH SPEED 

URITE 

REVERSE 

URITE FILE MARK 

EDIT 

ERASE 

RESERVED «S 
RESERVED •* 



I INVERT SENSE OF EXTENDED FEATURES SUITCh 
iRESET FIFO AND IN?UT PARITY ERRORR 
iRESET TAPE STATUS IN 2 FlIP-FlOPS 
•ATTENTION TRIGGER FIELD 

iRESET TIMER A.B THEN DELAY TIMES IN SEL2 



iNO-OP (NOTHING TRIGGERED) 

{SIMULATE ON -LINE /OFF -LINE TRANSISTION 

iFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 

iFCRCE FATAL RAM ERROR (CAUSES SCE TO SET) 



•INTERRUPT REQUEST (0-1 TRANSITION) 
I TAPE DATA DIRECTION OUT (0> IN) 
I ENABLE TRANSPORT L00P8ACK 

lURITE CORRECT PARITY (SET-0 TO URITE URONG) 



UORD «9 BYTE 2 



(UNDEFINED) 
UORD *8 BYTE 



WORD 96 BrTE 0 



DATA IN KISS 
ILU H 
OUT RDT H 
IN ROY H 
TIMER A FLAG H 
TIMER B FLAG H 

PARIN H 
IRESV2 
IRESVL 
lEOT L 
IIDENT H 
ICER H 
IFMK h 
IHER H 
ISPEED H 
IRDT L 
lONL L 



C3 



SEQ 028 







<;a Tt np • RTT4 1 Ti np i 






CO rnnv ■ rtts > tmiv i 






cn TQun ■ RTT? 1 TRiA 1 






CO trRv ■ RTTi I irnt i 






CO IFPT > BITO i TFPT L 


ISA 










lUNTBUC HAP DEriMATIQNC 


SAO 




























CBTTL SPECIAL MACPO^ AND OPDEF^i 














547 










iSAVE GENERAL REGS 1 TO S 






1 " 












MACRO SAVREG 






JSM RS.REGSAV 


J 






















1 HACRQ TO FORCE AM ERROR 












'macro forcerror tag nots^r 






.nlist 






"iTF NOT LI5TALL NLIST 


361 




list 






• A" O • 3 J" 






NOV T^MfR^l Rl iRFAD T^^R 


364 




.ENDC 


S6S 




HOV FORCER . FORCER iIS FORCER SET' (LEAVE 


366 




BIC TAG iBR IF yES 


?67 




.NLIST 


368 




"lIF NDF LISTALL. LIST 


369 




LIST 


570 




EMM 


371 






572 






575 




1 NACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 


574 




t UILL EXIT TO A LABEL IF FORCER IS NEGATIVE 


575 




1 so TO FORCE ERRORS ANO EXIT ON 1 ERROR SET 


576 




1 FORCER TO 177777 


577 




i TO FORCE ERRORS AND ITERATIONS SET FQRCEP TO 1. 


578 






579 




MACRO FQRCEXIT TAG 


580 




NLIST 


581 




'.Iir NOF LISTALL. .NLIST 


582 




.LIST 


585 




MOV FORCER. FORCER iIS FORCER NEGATIVE? 


584 




BMI TAG iBR IF YES 


585 




.NLIST 


386 




•IIF NOF LISTALL. .LIST 


387 




.LIST 


388 




.ENOH 


389 




1 ♦ 
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01 FEB -64 10:55 



SEO 029 



5«»0 
591 
39^ 
595 
594 
595 
596 
597 
598 
599 
400 
401 
402 
403 
404 
405 
406 
407 
406 
409 
410 
411 
412 
415 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 



000000 



002170 000000 



002172 
002174 
002176 
002200 
002202 
002204 
002206 
002210 
002212 
002214 
002216 



000000 
000000 
000000 
000000 
000224 
000200 
000000 
000000 
000000 
000000 
000000 



I HACRO TO INCREMENT ERROR COUNTS 
I - 

.MACRO NEXT.ERRNO 
•NLIST 

Ili.IIF NOF LISTALL. .NLIST 

ERRNO-ERRNO*! 
Ili.IIF NOF LISTALL. .LIST 
.LIST 
.ENOM 

'(MACRO TO PERFORM XOR 



.MACRO 

MOV 

BIC 

BIC 

BIS 

.ENOM 



XOR A.B 

A. -(SP) 

B. (SP) 
A.B 

(SP)».B 



EN-0 

.S8TTL FORCER 



I INITIALIZE ERROR NUMBER 
• FORCE ERROR FLAG 



I THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 

I TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 

I 



FORCER:: 



0 I FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 

1 • BY THE MACRO "IFERROR"). AN ERROR NEED NOT - 
t • EXIST. JUST ASSUME AND TYPE THE MESSAGE. 



.SBTTL GLOBAL DATA SECTION 



•THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
iIN MORE THAN ONE TEST. 



I THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
iSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 



EPRTSU: : 

UNITN: : 

QVP:: 

CSRADOR: 

IVEC:: 

IPRI:: 

TSTCNT: 

LOOPCNT 

DEVCNT : 

FATFLG: 

INTRECV 



.WORD 0 iPRINT SWITCH 

.WORD 0 lUNIT • UNDER TEST. 

.WORD 0 iQUICK VERIFY FLAG. 

.WORD 0 I ADDRESS OF CSR FOR CURRENT DEVICE 

I INTERRUPT VECTOR 
I INTERRUPT PRIORITY. 
.WORD 0 iNUMBER OF TESTS RUN IN THIS PASS 

.WORD 0 iREMAINING ITERATION COUNT FOR TEST 

.WORD 0 iNUMBER OF DEVICE UNDER TEST 

.WORD 0 I SET IF FATAL ERROR IS DETECTED IN TEST 

.WORD 0 t SET IF TAPE INTERRUPT WAS RECEIVED 



.WORD 224 
.WORD PR 104 



TSV3 GLOBAL AREAS 
GLOBAL DATA SECTION 
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SEQ 030 



44 7 


002220 


000000 


EXTFEA: : 


.WORD 


0 


448 


002222 


000000 


BENBSU: : 


.WORD 


0 


449 


002224 


000000 


EXPO: : 


.WORD 


0 


450 


002226 


000000 


RFCV: : 


.WORD 


0 


451 


002230 


000000 


f RRhl : : 


.WORD 


0 


452 


002232 


000000 


'.RRLO: : 


.WORD 


0 


453 


002234 




(tAMDATA: : 


.BLKW 


16. 


454 


002274 


000000 


P"r«SIZ: ! 


.WORD 


0 


4SS 


002276 


000000 


RCVHIkOD: : 


.WORD 


0 


456 


002300 


000000 


RCVLOAOD: : 


.WORD 


0 


457 


002302 


000000 


COUNT: : 


.WORD 


0 


456 


002304 


000000 


DATA: : 


.WORD 


0 


459 


002306 


000000 


TSTFLAG: : 


.WORD 


0 


460 


002310 


000000 


TSTPTR:: 


.WORD 


0 


461 


002312 


000000 


PRMNO: 


.WORD 


0 


462 


002314 




EXPHSG: : 


.BLKB 


100. 


463 


002460 




RECnSG:: 


.BLKB 


100. 


464 


002624 




TMPBFR:: 


.BLKB 


80. 


465 












466 












467 






.SBTTl 


TSTBLK 


- TE! 


468 












469 






1 » 






470 












471 






iTHXS TABLE CONTAINS TEST DA' 


472 












473 






iZN SEQUENCE THE DATA IS: 


474 












475 






1 ALL ZEROS 




476 






t ALL ONES 




477 






1 WALKING 


ONES 




478 






1 WALKING 


ZEROS 




479 






1 ALTERNATING ONES AND 


480 












481 












482 












483 


002744 




TSTBLK:: 






484 


002744 


000000 


.WORD 


0 




485 


002746 


177777 


.WORD 


177777 




486 


002750 


000001 


.WORD 


BXTO 




487 


002752 


000002 


.WORD 


BITl 




488 


002754 


000004 


.WORD 


BIT2 




489 


002756 


000010 


.WORD 


6IT3 




490 


002760 


000020 


.WORD 


BIT4 




491 


002762 


000040 


.WORD 


BTT5 




492 


002764 


000100 


.WORD 


BIT6 




493 


002766 


000200 


.WORD 


BIT7 




494 


002770 


000400 


.WORD 


BIT8 




495 


002772 


001000 


.WORD 


BIT9 




496 


002774 


002000 


.WORD 


BIT 10 




497 


002776 


004000 


.WORD 


BITll 




498 


003000 


010000 


.WORD 


BIT 12 




499 


003002 


020000 


.WORD 


BIT13 




500 


003004 


040000 


.WORD 


BIT 14 




501 


003006 


100000 


.WORD 


BIT 15 




502 


003010 


177776 


.WORD 


tCBITO 




503 


003012 


177775 


.WORD 


tCBITl 





I EX TENDED FEATURES SOFTWARE SW 0-0FF|l«0N 
I BUFFER ENABLE SWITCH SW O-OFFil-ON 
lEXPECTEO RAM DATA FOR PRAHPKT ROUTINE 
•RECEIVED RAM DATA FOR PRAMPKT ROUTINE 
(HIGH ADDRESS MEMORt ERROR 
(LOW ADDRESS MEMORY ERROR 

I DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 

I RAM DATA SIZE FOR PRAMPKT ROUTINE 

{RECEIVED BUFFER HIGH ADDRESS 

•RECEIVED BUFFER LOW ADDRESS 

I TEST COUNT PATTERN 

»TEST DATA 

(TEST FLAG WORD 

I TSTBLK POINTER 

i PRINT ROUTINE TEMP 

I EXPECTED MESSAGE BUFFER DATA 

iRECFIVEO MESSAGE BUFFER DATA 

{TEMPORARY STORAGE FOR PRINT 



- TEST DATA TABLE 



(ALL ZEROS 
(ALL ONES 

I DATA FOR WALKING ONES 



{DATA FOR WALKING ZEROS 



F3 



TSVS - GLOBAL AREAS MACRO MlllS 01 FEB 84 18:55 
TSTBLK TEST DATA TABLE 



SEQ 031 



504 003014 

505 003016 

506 005020 

507 003022 

508 003024 

509 003026 

510 003030 

511 003032 

512 003034 

513 003036 

514 003040 

515 003042 

516 003044 

517 003046 

518 003050 

519 003052 
520 

521 
522 
523 
524 
52S 
526 

527 003054 

526 003064 

529 

530 

531 

532 003104 
533 

534 003106 
535 

536 003110 

537 003112 

538 003114 

539 003116 

540 003120 

541 003122 

542 003124 
543 

544 

545 003126 

546 003130 

547 003132 

548 003134 

549 003136 

550 003140 

551 003142 

552 003144 

553 003146 

554 003 ISO 

555 003152 

556 00S154 

557 003156 

558 003156 

559 003160 

560 003162 



17777J 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
137777 
077777 
125252 
052525 
003054* 



000000 100000 
000000 000000 



000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
002000 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 



oooooo 
oooooo 



TBLENO' 



.UORO 
.UORO 
.WORD 
.UORO 
.WORD 
.UORO 
.WORD 
.WORD 
.UORO 
.UORD 
.UORO 
.UORD 
.UORD 
.UORO 
.UORD 
.UORD 



»CBIT2 

tCBIT3 

tCBIT4 

tCBIT5 

tCBIT6 

tCBIT7 

tCBXTB 

tCBIT9 

tCBITlO 

tCBITll 

tCBIT12 

tCBITll 

tCBIT14 

tCBITlS 

125252 

052525 



t ALTERNATING ONES. ZEROS 

{ALTERNATING ONES. ZERO OPPOSITE FROM ABOVE 



.SBTTL GLOBAL ENVIRONMENT STORAGE 



•STORAGE FOR DEVICE REGISTERS 



DUMMY: 0.100000.0,0 


1 DUMMY DEVICE 


REGISTERS. . . 


0,0.0. 


0.0.0.0.0 












1 . . .FOR 


MULTI 


-UNIT CHECKOUT. 


DUFLG: : 


.UORD 


0 




{"DROPPED UNIT" FLAG. 










{INHIBITS CODE IN "CLEAN-UP". 


NODEV:: 


.UORO 


0 




{FLAG TO SAY NO DEVICE. 


TEMPI:: 


.UORO 


0 




{SOME TEMP LOCATIONS. 


TEMP2: : 


.UORO 


0 






XXCOMM: : 


.UORD 


0 




{XXDP* COMM BLOCK POINTER. 


FREE:: 


.UORD 


0 




(1ST FREE MEMORY ADDRESS... 


FRESIZ:: 


.UORO 


0 




{...AND SIZE (IN UOROS). 


FREEHI: .UORO 


0 




iLAST 


UORO IN FREE SPACE 


KTFLG: : 


.UORD 


0 




(Kill. MEM AVAIL FLAG - 










{• .UORO 0 - <24K OR NO KT 










t- NZ • >24K AND KT. 


K TENABLE:: 


.UORO 


0 




iSET BY TEST ROUTINES TO FLAG >28K UNDER 


NXMFLG;: 


.UORD 


0 




{SET IF UE CAN TEST CLEARED OTHERWISE 


NXMLO:: 


.UORO 


0 




{NXM LO ADDRESS BITS 


NXMHI: : 


.UORD 


0 




{NXM HI ADDRESS BITS FOR DAL'S 16-21 


T23A:: 


.UORO 


0 




{PROCESSOR TYPE FLAG 


T23B:: 


.UORD 


0 




{PROCESSOR TYPE FLAG B 


T36FLG:: 


.UOPO 


0 




{TEST 3B FLAG tO 


PST32U: : 


.UORD 


2000 




{32U BLOCK ADDRESS FOR S2K START 


SIFLAG: : 


.UORD 


0 






BAOOAT : : 


.UORD 


0 




(ACTUAL DATA 


GDDAT : : 


.UORO 


0 




{EXPECTED DATA 


LOOPFL : : 


.UORO 


0 






CTAB:: 








(CONFIGURATION TABLES. 


CTABM: : 


.UORD 


0 




{CONFIG UORK. 




.UORO 


0 








.UORD 


0 







TEST 



TSV5 - GLOBAL AREAS HACRO H1115 
GLOBAL ENVIRONMENT STORAGE 



01 -FEB 04 16:55 



SEQ 032 



561 005164 

562 003166 

563 005170 
564 

565 
566 
567 
566 
569 
570 
571 
572 

575 003170 
574 003370 
575 

576 003372 
577 

578 
579 
580 
581 
582 
583 
584 
585 
566 
587 
588 
589 
590 

591 003374 
003374 
003374 

592 
613 
614 
615 

616 003402 
003402 
003402 



000000 
177777 



000000 
000000 



124 



123 



125 



052 



052 



052 



WORD 0 

iuORO -1 lEND Of MEM TABLE. 

CTABE: : 

ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 



ERTABL: 
ERTABE: 

SKIPT: 



0 

100000 

loxxxx 

160000 
160001 
14XXXX 



.VIORO 
.SBTTL 



.BLKU 
.WORD 



UNIT NOT TESTED 

UNIT ONLINE, NO ERRORS 

UNIT ONLINE. ENCOUNTERED XXXX ERRORS 

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 

UNIT DROPPED. NOT IDLE AT START 

UNIT DROPPED. ENCOUNTERED XXXX ERRORS 

64. 
0 



0 il-SKIP SUBTEST O-NO SKIP OF ^UBTEST 

GLOBAL TEXT MESSAGES 



J THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
t MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
I MORE THAN ONE TEST. 
: - - 



i* 



{NAMES OF DEVICES SUPPORTED 



LIOVTVPi 



OEVTYP 

!asciz 

.EVEN 



<TSU05> 
/TSU05/ 



J TEST DESCRIPTION 



LIOESC:: 



OE SCRIPT 

.ASCIZ 
.EVEN 



TSUOS DIAG PART 4 



/**•• TS;X>S DIAG PART 4 



CHECK TRANSPORT IF ERROR 
CHECK TRANSPORT IF ERROR ***«/ 



618 
















619 
















620 
















621 
















622 










Ibit to 


ASCII CONVERS 


623 










t - 






624 
















625 


003472 


003532' 


003535' 


005541' 


TSSRBIT: 




.WORD 


626 


005512 


005573' 


003577' 


003605' 






.WORD 


627 


005532 


123 


105 


000 


11: 


.ASCIZ 


•sc 


628 


003535 


102 


111 


105 


2»: 


.ASCIZ 


'BIE' 


629 


003541 


123 


105 


105 


5*: 


.ASCIZ 


'SCE' 


630 


003545 


122 


115 


122 


At: 


.ASCIZ 


'RMR' 


631 


003551 


116 


130 


115 


5$: 


.ASCIZ 


•NXM' 


632 


00355S 


116 


102 


101 


6»: 


.ASCIZ 


'NBA' 



ll.2t.5«.4t.5(.6$.7».e) 
9t.l0t.llt.l2».l3l,14t.l5$,16i 



H5 



TSV3 GLOeAL AREAS 
GLOBAL TEXT MESSAGES 



633 003561 

634 003566 

635 003573 

636 003577 

637 003603 
630 003610 

639 003615 

640 003622 

641 003627 

642 003634 
643 

644 003642 

645 005675 

646 003730 

647 003767 

648 004010 

649 004050 

650 004107 

651 004113 

652 004142 

653 004205 

654 004211 

655 004246 

656 004270 

657 004325 

658 004377 

659 004447 
660 

661 004517 

662 004520 

663 004523 

664 004557 

665 004633 

666 004735 

667 005003 

668 005046 

669 005103 

670 005176 

671 005270 

672 005362 

673 005450 
674 

675 
676 
677 
678 
679 
680 
681 
682 
683 

684 005544 
005544 

685 005544 
005544 
005550 
005554 
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SEQ 033 



102 


111 


124 


71 : 




. ASCIZ 


• n T T A f 

• BIT9' 


102 


111 


124 


8t : 




. ASCIZ 


' BIT8' 


123 


123 


122 


9$ : 




.ASCIZ 


' SSR' 


117 


106 


114 


10) 




.ASCIZ 


' OFL' 


102 


111 


124 


11* 




.ASCIZ 


'BIT5' 


102 


111 


124 


12 » 




.ASCIZ 


•BIT4' 


102 


111 


124 


13» 




. ASCIZ 


' BIT3' 


102 


111 


124 


14 » 




.ASCIZ 


' BIT2' 


102 


111 


124 


151 




AC^ 

•ASCIZ 


1 B TT 4 • 

BITl' 


102 


111 


124 


16 • 




.ASCIZ 


. B T TAf 

'BITO' 












.EVEN 




124 




123 


SFIERR: 


.ASCIZ 


T5SH cHROR Mr TtR SOrT INIT 


124 


123 


123 


SFHERR: 


ACAT7 

.ASCIZ 


T55R ERROR Mr TtR BUS RESET' 


040 


AA A 

040 


4 4^ 

116 


NXR 




.ASCIZ 


/ NUN-EXISTANT DEVICE REGISTER/ 


/VAC 


4 A1 


/VAA 


NXRX: 


. nSLIZ 


/MA Af^AOCCC. / 

/W/\ nUUNcSS: WJO/ 


/VAC 


1 A4 
lOl 


AAA 


TSSX: 


.ASCII 


/MA TCDA TCCO CVDiA. ^e\r ^ tk wA^^kj y 

/VA ISOAilSSN tAr L): •UoSn,VUO*N' 


045 


4 Al 

lOl 


AAA 






.ASCIZ 


y^A TCBA TCCO DCAiA. -* * ^/V£ y 

/•A TSBA.ISSR HEC D: •06»A,»0o/ 


/VAC 


IID 


/VAC 


FUSI: 


. ASCII 


/•NliA/ 


AAA 


/VAA 


4 -^C 

123 


USI: 


. aSCIZ 


/ vMCArtCItU INItHRWT/ 


040 


040 


111 


NSI 




.ASCIZ 


/ INTERRUPT EXPECTED. NOT RECEIVED/ 


045 


116 


045 


FNOINTR 




.ASCII /«N«A/ 


AAA 


/VAA 


XXo 


NOINTR: 


.ASCIZ 


/ NO INTEHRt.ff'l WAS uENcRATEP/ 


AA A 


AAA 

040 


111 


IFAULT : 


.ASCIZ 


y TLlTCnOl lAT PAI ■ T y 

/ INTERRl.w'T FAULT/ 


AAC 

045 


4 Al 

lOl 


AAA 


INTX: 


ACATT 

.ASCIZ 


y^A AQl 1 BA . M/V£WA TCBA . ^f\£. y 

/•A CHU HC : WJO^A ISBA: KUo/ 


/VAA 


/\AA 


/VAO 


NOINIT: 


. nSCIZ 


y mBi IC TklTT It ATAkJ' T TklTTTAI T7C ^AklTOAt 1 CD y 

/ DUS-INII' UIUN I INITIALIZE CONTHULLtH/ 


AAA 


AAA 


AA 

042 


NSINIT : 


ACAT7 
. ASCIZ 


y #IC/^P T T^T T •! AT A^ #T TWTTTAI T TC TuC AAl 1 y 

/ SOrT-INIT DION T INITIALIZE THE DPU/ 


AAA 

040 


/VAA 

040 


/\A^ 

042 


BRINIT : 


ACAT7 

.nSCIZ 


y I(B| IC BCCCTI* ATfVLl* T TUTTTAI T Tk-f AO! 1 y 

/ BUS-RESET DION' I INITIALIZE THE DPU/ 


AAA 






NUL 




.ASCIZ 


// 


/VAC 


4 4 


/VAA 


NULCh: 


ACAT7 

. HSCIZ 


y^k] y 
/•W/ 


/VAC 


4 A4 

lOl 


AAA 
U40 


EXPGOT: 


. HSCIZ 


/MA CVO*A. M/V^MA DCAiA. M/V£ y 

/•A EaP U: »Uo»A, HcC U: •Ut>/ 


/lAC 


4 4^ 
116 


/VAC 

045 


EXPGT2: 


. ASCIZ 


y^kM A C VB f A . ^ A£^ A ^f\€ ft BC A « A ^n^A ^A£ y 

/•NIIA EXr D: •06»A, KOowNwA REC D: liOWA, •06/ 


AA C 

045 


4 A4 

101 


AAA 

040 


0UA012: 


.ASCIZ 


yW A BC/-/IJV 1 ATT TC^ T A . w A^W A AC A / B % BP A A f WA * A A np/- f A 

/•A REblWj WRITTEN TO: •06»A REbCR} READ: EXP D: »06<A, REC D: 


122 


4 A4 

101 


4 4 C 

115 


PKTRAM: 




.ASCIZ ' RAn Contents Do Not natch Packet Sent 


040 


040 


103 


SCME: 


" .ASCIZ 


/ CONFIG DOESN'T MATCH MFG. MASTER/ 


127 


122 


111 


URTHSG: 


.ASCIZ 


'URITE CHARACTERISTICS Failed' 


1 


1 


1 


URTERR: 






124 


123 


123 


RDERR: 


.ASCIZ 


'TSSR Incorrect After READ Cowimand. More Bits Set Than SSR' 


106 


101 


124 


SCHERR: 


.ASCIZ 


'FATAL ERROR IN SUBTEST - CHECK TAPE. CABLES. TRANSPORT etc.' 


105 


122 


122 


RETERR: 


.ASCIZ 


'ERROR IN SUBTEST - URITE DATA RETRY FIVE TIMES FAILED' 


045 


116 


045 


NOHEM: 


.ASCIZ 


•KNtfA ***** NO NXM ADDRESS- -CANNOT TEST NXM TIMEOUT. *«***«N' 












.EVEN 














.SBTTL 


GLOBAL ERROR REPORT SECTION 



#06/ 



S THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTS AND PRINTX 

s CALLS THAT ARE USED IN MORE THAN ONE TEST. 

J ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 

t -- 



NXRERR: 



BGNMSG NXRERR 



013746 
012746 
012746 



003106' 
003767- 
000002 



PRINTX 
MOV 
MOV 
MOV 



«NXRX.NODEV 
NODEV. -CSP) 
♦NXRX. -(SP) 
92. -CSP) 



INON-EXISTANT DEVICE REGISTER, 
i NODEV - NEXM ADDRESS. 



15 



TSV5 GLOBAL AREAS MACRO MlllS 

GLOBAL ERROR REPORT SECTION 



005560 
005562 
005564 
666 005570 
687 005574 
005574 
005574 

668 
689 
690 
691 
692 
693 

694 005576 

695 005600 

696 005602 

697 005604 
696 005610 

005610 
005614 
005620 
005622 
005624 

699 005630 

700 

701 

702 

703 

704 

705 

706 

707 

70S 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 005632 

720 005632 

721 005636 

722 005640 
005640 
005642 
005646 
005652 
005654 
005656 

723 005662 

724 005664 

725 005670 

726 005672 



010600 
104415 

062706 000006 
004737 005576' 



104423 



005727 
000000 
001402 

004777 177770 

012746 004S20' 
012746 000001 
010600 
104415 

062706 000004 
000207 



010104 
010446 

012746 006305' 
012746 000002 
010600 
104414 

062706 000006 
010400 

004737 015734' 
103410 



01 -FEB 84 18:55 



MOV 
TRAP 
ADD 
JSR 

ENDMiG 



SEQ 034 



L 10002: 



TRAP 



SP.RO 
CtPNTX 
♦6.SP 
PC. EX TEND 



c*nsG 



I PRINT EXTENSION IF REQUIRED. 



! THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
I TO ANY OF THE ABOVE ERROR SIGNATURES. 

* (PC)» 



EXTEND 
EXTA: 



It: 



TST 
0 

BEQ 
JSR 

PRINT X 
MOV 

nov 

MOV 
TRAP 
ADD 
RTS 



1( 

PC.BEXTA 
«NULCR 

•NULCR.-(SP) 

•l.-(SP) 

SP.RO 

CtPNTX 

•4.SP 

PC 



I 



NO EXTENSION. 



I APPEND EXTENSION TEXT. 
I PRINT A BLANK LINE 



.S8TTL PRITSSR - PRINT TSSR CONTENTS 

ROUTINE TO DISPLAY THE CONTENTS. AND BIT DEFINITIONS, OF 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

Rl CONTENTS OF TSSR 

SUBORDINATE ROUTINES: 

CHKAMB CHECK FOR AMBIGUOUS CONTENTS 



PRITSSR: 



SAVREG 

MOV R1.R4 

PRINTB •TSSRF0R.R4 

MOV R4.(SP) 

MOV ATSSRFOR.-CSP) 

MOV ♦S.-CSP) 

MOV SP.RO 

TRAk CtPNTB 

ADO 06. SP 

MOV R4.R0 

JSR PC, CHKAMB 

BCS 51 

PRINTX WMBTSSR 



iSAVE GENERAL REGISTERS 
J SAVE THE TSSR CONTENTS 
I PRINT THE CONTENTS OF TSSR 



tGET TSSR BACK FOR CHKAMB 
;ARE CONTENTS AMBIGUOUS ? 
t BRANCH IF NOT 

I SHOW CONTENTS ARE AMBIGUOUS 



TSV3 GLOBAL AREAS MACRO HlllS 01 FEB-84 18:55 
PRITSSR PRINT TSSR CONTENTS 





\AJD%> 1 c 


m 3 74 A 


VA^OCO 




MOW 




7A 




VAAAA/X 




Mn\/ 




ftn'\ 7rtO 
W3 f V/c 














lU*^ lo 










n/)*«7nA 


/VL37n<i 






Ann 


7? 7 


00*^71 ? 


vXV^vO 




o « « 




1 CO 


nA^7i A 

WD f 1^ 


nA37nx 

f wo 


uvx" »o 






7PQ 


ftft«i7PO 
WD « c v 


wx^o^ 






DCU 


7^ 


W^ f cc 


01 3703 
vxc « vc 


007APA ' 
WCOC** 






7X1 


\/\/D f 


Vic #UX 


nnx479' 




> lU V 


r OC 


WD « DC 


wo r VO 




lot • 

Xv* . 


t<;t 


7SX 

• oo 


W J I ^"t 


WX^ xo 






RFQ 


7S4 




WVC^ X 








f J 


WD » ^ V 


onfti ox 

V^^XvO 








f •Jw 


OAS74P 


lOXOOIt 
X vov>^o 






RCC 


7S7 


OOS7AA 


01 1 100 
VX X xw 






MHV 




00^746 


1 1 POP? 

X XCvCC 




1 1 t • 
X X * • 




739 




001 X7#t 

WX *7 f w 






RNP 


740 


005 75P 


112762 


0OOOS4 mm 






741 




0057P1 




13t > 


T5T 


74? 










BR 


74 S 








1st • 


CLRR 


744 


WD f OO 












OAS7l>A 

W J f vw 


AID 746 






MAV 






012746 


006476' 

fw 




MOV 




OAS 7 76 


01 D746 


wvwc 




HAV 




006002 


010600 






nov 




006004 


XV^^ X J 






TRAP 








wwwo 




ADD 


745 












746 




01040X 




• 


MOW 


747 


006014 


0A?70X 
v^c » vo 


1 77761 




DXw 


748 


WWCW 


vxoovo 


WODOO 




MOV 


749 


006024 
006094 


OlOUft 

VXVO^v 






PRTMTX 

rf^XI^ 1 A 

HOW 






01 974A 

vXC f 


AA6X66' 
IfVODOO 








006032 


VXC f • u 


wwwc 




MOV 






01 OfiAO 






MOW 




006040 


XV^^ X J 






TRAP 




006042 


OftP70f^ 

WVC ' 


wwwo 




Ann 


750 


006046 


010403 






MOV 


751 


00605O 


04270S 


177717 






752 


006054 


001416 






RFQ 


753 


0060S6 


006203 








754 


006060 








AQR 


755 


006062 


006203 








756 


006064 


016303 


007126' 

W f XCw 




MOV 


757 


006070 
006070 


010346 










006072 


012746 


006427' 




nov 




006076 


012746 


000002 




MOV 




006102 


010600 






MOV 




006104 


104415 






TRAP 




006106 


062706 


000006 




ADO 


758 


006112 


042704 


176377 


25$: 


BIG 


759 


006116 


001411 






6EQ 


760 


006120 








PRINTX 



J3 



SEQ 035 



«AM8TSSR.-(SP) 

*1.-(SP) 

SP.RO 

CIPNTX 

»4.SP 

R4.R3 {CONTENTS OF 

«HIADDR ! F ATERR ! TERCLS . R3 
20$ 

♦TMPBFR,R2 



«TSSRBIT.R1 
R3 
15$ 

R3 
13$ 

(Rl).RO 

CR0)»,(R2)» 

11$ 

,.-l(R2) 
(Rl)» 
10$ 
-(R2) 

♦TSS0EF.*TMPBFR 

♦TMPBFR.-(SP) 

♦TSSDEF.-CSP) 

♦2.-(SP) 

SP.RO 

C$PNTX 

♦6.SP 

R4,R3 

♦tCTERCLS.RS 

TC0C0D(R3).R3 

#TC0ASC.R3 

R3.-(SP) 

♦TCOASC.-(SP) 

♦2.-(SP) 

SP.RO 

C$PNTX 

•6.SP 

R4.RS 

«tCFATERR.R3 

25$ 

R3 

R3 

R3 

TSFC00(R3).R3 

♦TFCASC.R3 

R3.-(SP) 

♦TFCASC.-(SP) 

♦2.-(SP) 

SP.RO 

C$PNTX 

•6.SP 

«tCHIAD0R.R4 
30$ 

♦TEXASC.R4 



TSSR 

I CLEAR ALL MULTIPLE BIT FIELDS 

iNO BITS ARE SET 
{TEMPORARY ASCII BUFFER 
(ASCII EQUIVALENT OF BITS 
{REMAINING BITS TO CONVERT 
{BRANCH WHEN ALL ARE DONE 
{CLEAR CARRY FOR SHIFT 
I SHIFT NEXT BIT TO CARRY 
(BRANCH IF BIT NOT SET 
(POINTER TO BIT DEFINITION 
{MOVE ASCIZ TO BUFFER 
(MOVE ALL BITS 

(INSERT A COMMA TO TERMINATE 
(POINT TO NEXT DESCRIPTION 
(GET THE REMAINING BITS 
(TERMINATE THE LINE 
(PRINT THE BIT DEFINITIONS 



(GET THE TSSR CONTENTS 

(CLEAR ALL BUT TERMINATION 

(GET THE TERMINATION CODE MEANING 

(PRINT THE TERMTNATION CODE 



(TSSR CONTENTS AGAIN 

(CLEAR ALL BUT FATAL TERMINATION 

(DON- T PRINT IF ZERO 



(ALINE TERMINATION CODE FOR INDEX 
(GET THE FATAL TERMINATION CODE 
(PRINT THE FATAL TERMINATION CODE 



(CLEAR ALL BUT EXTENDED ADDRESS 

(DON'T PRINT IF ZERO 

(PRINT THE EXTENDED ADDRESS BITS 



I<3 



TSV3 - GLOBAL AREAS MACRO M1113 01 -FEB 84 18:55 

PRITSSR PRINT TSSR CONTENTS 



006120 


010446 










MOV 


006122 


012746 


006325" 








MOV 


006126 


012746 


000002 








WV 


006132 


010600 










HOV 


006134 


104415 










TRAP 


006136 


062706 


000006 








ADD 


761 006142 


013703 


002172' 




30«: 


MOV 


762 006146 












PRINTX 


006146 


010346 










MOV 


006150 


012746 


000001 








MOV 


006154 


010600 










MOV 


0061S6 


104415 










TRAP 


006160 


062706 


000004 








ADD 


763 006164 


000207 










RTS 


764 














779 006166 


045 


116 


045 


EPRTl: 


.ASCIZ 


780 006225 


045 


116 


045 


EPRT2: 


.ASCIZ 


782 006305 


045 


116 


045 


TSSRFOR 




783 006325 


045 


116 


045 


TEXASC: 




784 006366 


045 


116 


045 


TCOASC: 




785 006427 


045 


116 


045 


TFCASC: 




786 006476 


045 


116 


045 


TSSOEF: 




787 006525 


045 


116 


045 


AMBTSSR: 


788 












.EVEN 


789 006566 


006606' 


006631' 


006657' 


TCOCOO: 


.WORD 


790 006606 


116 


157 


162 


1« 




.ASCIZ 


791 006631 


x24 


145 


162 


29 




.ASCIZ 


792 006657 


124 


141 


160 


31 




.ASCIZ 


793 006701 


106 


165 


156 


49 




.ASCIZ 


794 006721 


122 


145 


143 


59 




.ASCIZ 


795 007003 


122 


145 


143 


69 




.ASCIZ 


796 007052 


125 


156 


162 


79 




.ASCIZ 


797 007076 


106 


141 


164 


89 




.ASCIZ 


798 












.EVEN 


799 














800 007126 


007136' 


007172* 


007203' 


TSFCOO: 


.WORD 


801 007136 


111 


156 


164 


19 




.ASCIZ 


802 007172 


122 


145 


163 


29 




.ASCIZ 


803 007203 


102 


165 


163 


39 




.ASCIZ 


804 007247 


122 


145 


163 


49 




.ASCIZ 


805 












.EVEN 


806 












807 












. SBTTL 


808 












809 








i ♦ 






810 








iTHIS ROUTINE 


811 








2 THIS ROUTINE 


812 








I 






813 








s INPUT: 




814 








s 






815 








ff 




RO 


816 








# 




R3 


817 








1 




R4 


818 








s 






819 








• 




NOTE: 


820 














821 















SEO 036 



R4.-(SP) 

♦TEXASC. -(SP) 

♦2.-(SP) 

SP.RO 

C9PNTX 

♦6.SP 

EPRTSU.R3 

R3 

R3.-(SP) 

♦l.-lSP) 

SP.RO 

C9PNTX 

♦4.SP 

PC 



I PRINT nEAASGE BUTFER ADDRESS 
> PRINT PROPER MESSAGE 



I RETURN TO CALLER 



ii****CHECK TRANSPORT****** 
•KNtfA *****CHECK PARITY SWITCH IN TRANSPORT***** 
.ASCIZ 'KNKA TSSR - f(06' 
.ASCIZ '«MA Ext«nd*d A<Mp««a Bits - HQS' 
.ASCIZ '«MA TcPMirtation CIm* Cod* - «T' 
.ASCIZ '«WA Fatal Tanii i nat i on Claas Code - «T' 
.ASCIZ 'KNKA TSSR B!ts Sat: «T' 
.ASCIZ '«WA TSSR Contanta Ar« Aaibiguous' 

1*. 29. 39. 4$, 5$. 69. 79. 89 
'Normal Tarmi nation' 
'Tarmination Condition' 
'Ta^ Statua Alart' 
'Function Rajact' 
'Racovarabla Error 

'Racovarabia Error - Tap* Was Not Moved' 
' Unracovarabla Error' 
'Fatal Controllar Error' 



Tap* Position On* Record Down' 



19.29.39.49 

'Internal Diagnostic Failur*' 
'Rasarved' 

'Bus Interface or Sanity Check Error' 
' Reserved' 



PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



A COMMAND PACKET. 



NUMBER OF WORDS IN PACKET 

HIGH ORDER COMMAND PACKET ADDPESS 

ADDRESS OF COMMAND PACKET 

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



TSV3 - GLOBAc AREAS MACRO M1113 01 -FEB -84 18:55 

PRIPKT PRINT THE AOORcSS/CONTENTS OF COMMAND pACKET 



L3 



SEQ 037 



822 007260 

823 007260 

824 007264 

825 007266 

826 007272 

827 007274 

828 007276 

829 007300 

830 00730? 

831 007304 

832 007306 
007306 
007310 
007312 
007316 
007322 
007324 
007326 

833 007332 

834 007334 

835 007336 

836 007340 

837 007344 

838 007346 

839 007350 

840 007352 
007352 
007354 
007356 
007362 
007366 
007370 
007372 

841 007376 

842 007400 

843 007402 

844 007404 
645 

646 007406 

647 007444 
648 

649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
859 
660 
661 
662 
863 
864 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 

010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 
000207 

045 
045 



003126' 



PRIPKT: 



10* ! 



007444 ' 
000003 



000010 



017210' 



151; 



20$: 
25$: 



007406' 
000003 



000010 



116 
116 



045 PKTFRM: 







iSAVE THE REGISTERS 




nuv 


DA D^ 
KU « HD 


;SAVE NO. OF WORDS IN PACKET 


T«*T 
1 9 1 




ihBOVc 26K UNDER TEST? 




DUC 

dnc 


1 A* 


|OH IP Yt5 




PI D 


DX 
KO 


iSET HI&H ORDEH ADDRESS TQ 


0 


nuv 


RX R1 


iCOPt nIC9n ORDER ADDRESS 




nuv 


OA DA 


^cicT 1 At JCD anr\Dccc 




Dm 


DA 
KU 


• CUTC T QTT 1C TklTA P OTT 

1 bnir 1 oil LO INIU L oil 




Dru 


R1 
n X 


1 HMU Lri 1 U nlljrl UHUcK , 






APt^TADD R1 RA 


• DDTUT DikPl^CT AAADCCC 
tr'Kini KnLTsc 1 HIIUKC99 






RA - f CP ^ 
KH 0 'K or } 








R 1 . f CP 






Mn\/ 

1 lU V 


APKTADD TCP) 






I JU V 


AT - r QP ^ 






nuv 


Cp pA 

» nu 






TRAP 


r tPMTR 

U »r n 1 D 






ADD 


AID CP 
vxu t 






nuv 


R^ QD 


1 UC 1 nXwn UKUC.K 






PDi 


|DK xr nu 1 MDUVC cOfx . 




MDU 


RA R1 


• /^CT 1 nu AOACD AAADCCC 
luC. 1 i.UW UKUCK nUUnC33 




w^n 


Pr CF TMAP 


. CPTI ID DADl^ MADDTktf* PAD 1 A 




MOW 
nuv 


QD RA 


- CPT DPTi niopn PADA AnnDPcc 

;uC 1 KC 1 UHriCU rnHO HUUKCsD 


QTAC 
Dins 


n R 


R1 
n X 


• CAUP UTIDA KM MQPD 
2 3HVC WUnU rn^lDC.H 




nuv 


rpA^A Rp 


«nPT DAr^l^PT PniaTPMTC 




r n xn 1 w 


APl^TPRM R1 RP 


•DDTUT TUP HAT A 




MflU 

■ •wV 


Rp - f CP 1 






nuv 


R 1 . f CP 

K X t ' \ Or 3 






NOV 


♦PKTFRM. -(SP) 






MOV 


•3.-(SP) 






MOW 


BO 






TDAP 








ADD 


#10 , SP 






INC 


Rl 


:NEXT WORD NUMBER 




CMP 


R1.R5 


tOONE ALL PACKET WORDS? 




BLT 


25$ 


iLOOP TILL ALL DONE 




RTS 


PC 


(RETURN 




.ASCIZ 


'«Ni<A Packet 


Word M01«A • «05' 




.ASCIZ 


'KNitA Packet 


Address - «01«05' 




.EVEN 









.SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 



PRINT EXPECTED DATA. RECEIVED DATA. AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS; 



Rl RECEIVED DATA 

R2 EXPECTED DATA 



OUTPUT: 



TSVJ GLOBAL AREAS 
PRIBXOR PRINT EXPO. 



MACRO Mill 3 01 
RECV AND XOR BYTE 



FEB 84 18:55 



M3 



SEQ 038 



865 
866 
867 
868 

869 007502 

870 007502 

871 007506 

872 007510 

873 007520 

874 007524 

875 007526 

876 007530 

877 007532 
007532 
007534 
007536 
007540 
007544 
007550 
007552 
007554 

878 007560 

879 007562 
880 

881 007564 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

8% 

897 

898 

899 

900 

901 

902 

903 007632 

904 007632 

905 007636 

906 00 '640 

907 007650 
007650 
007652 
007654 
007656 
007662 
007666 



045 



RO 



XOR OF EXPECTED/RECEIVED DATA 



PRIBXOR: 



010203 

012700 177400 
040001 
040002 
040003 

010346 
010146 
010246 

012746 007564' 
012746 000004 
010600 
104414 

062706 000012 

010300 

000207 



116 



045 XORBFOR 



SAVREG 




iSAVE THE REGISTERS 


MOV 


R2.R3 


1 EXPECTED DATA 


XOR 


R1.R3 


iFORM THE EXCLUSIVE OR 


nov 


♦tC<377>,RO 


iBYTE MASK 


BIC 


RO.Rl 


tSAVE LOU BYTE RECV 


BIC 


R0,R2 


iSAVE LOW BYTE EXPO 


BIC 


R0,R3 


.SAVE LOU BYTE XOR 


PRINTB 


♦XORBFOR. R2.R1,R3 i PRINT THE MESSAr,E 




R3.-(SP) 




nov 


Rl.-CSP) 




MOV 


R2.-CSP) 




MOV 


♦XORBFOR. -(SP) 




MOV 


♦4.-(SP) 




MOV 


SP.RO 




TRAP 


C$PNTB 




ADO 


♦12. SP 




MOV 


R3.R0 


tRO HAS XOR ON RETURN 


RTS 


PC 


: RE TURN TO CALLER 




.ASCIZ '«N«A 


EXPO: «03«A RECV: «03tfA XOR: 



.EVEN 



.SBTTL PRIXOR - PRINT EXPO. RECV AND XOR 



PRINT EXPECTED DATA. RECEIVED DATA. AND XOR OF THE TUO 
I THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



; INPUTS: 
> 



Rl RECEIVED DATA 

R2 EXPECTED DATA 



OUTPUT ! 



PRIXOR: 



010203 



010346 
010146 
010246 

012746 007702' 
012746 000004 
010600 



RO XOR OF EXPECTED/RECEIVED DATA 



SAVREG :SAVE THE REGISTERS 

MOV R2.R3 J EXPECTED DATA 

XOR R1.R3 ;FORM THE EXCLUSIVE OR 

PRINTB ♦X0RF0R,R2.R1,R3 j PRINT THE MESSAGE 

MOV R3.-CSP) 

MOV Rl.-CSP) 

MOV R2.-(SP) 

MOV ♦XORFOR. -CSP) 

MOV ♦4. -CSP) 

MOV SP.RO 



N3 



TSV5 - GLOBAL AREAS MACRO M1113 01 -FEB 84 18:55 
PRIXOR PRINT EXPO. RECV AND XOR 



SEQ 039 



007670 
007672 

908 007676 

909 007700 
910 

911 007702 

912 

915 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 007750 

929 007750 

930 007754 
931 

932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 

946 007756 

947 007756 

948 007762 
007762 
007764 
007770 
007774 
007776 
OlOOOO 

949 010004 
950 

951 010006 

952 

953 

954 

955 

956 



104414 

062706 000012 

010300 

000207 



TRAP 
ADD 

nov 

RTS 



CIPNTB 
♦12. SP 
R3.R0 
PC 



iRO HAS XOR ON RETURN 
(RETURN TO CALLER 



045 



116 



045 



XORFOR: .ASCIZ 
.EVEN 



'WMA EXPO: lt06#A RECV: «06«A XOR: «06' 
SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS: 



RO OCTAL VALUE TO CONVERT 

Rl TABLE OF POINTERS TO ASCII EQUIVALENT 



I - 

PRIEQU: 



000207 



SAVREG 
RTS PC 



:SAVE THE REGISTERS 
; RE TURN TO CALLER 



.SBTTL PRIRAM - PRINT RAM ADDRESS 



I ♦ 



I PRINT CONTROLLER RAM ADDRESS. 

{THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



i INPUTS: 



R4 



RAM ADDRESS 



PRIRAM: 



010446 

012746 010006' 
012746 000002 
010600 
104414 

062706 000006 
000207 



SAVREG 

PRINTS «RAMF0R.R4 

MOV R4.-fSP) 

MOV «RAMFOR. -(SP) 

MOV <»2.-(SP) 

MOV SP.RO 

TRAP C$PNTB 

ADO «6.SP 

RTS PC 



.•SAVE R1-R5 UNTIL NEXT RETURN 
: PRINT RAM ADDRESS IN ERROR 



: RETURN 



045 



116 



045 RAMFOR: 



I ♦ 



.ASCIZ 
.EVEN 



'WMA CONTROLLER RAM ADDRESS - «06' 



.SBTTL PRIADO - PRINT MEMORY ERROR ADDRESS 



B4 



rsv3 GLOBAL AREAS MACRO mtl5 01 FEB 64 18:5S 
RRIAOO PRINT MEHORt ERROR ADDRESS 



SEO 040 



957 
95« 
959 
960 
961 
962 
963 
964 
965 

967 
966 
969 
970 
971 
972 
973 
974 



975 
976 
977 
976 
979 
960 
961 
962 
963 
964 
965 
966 
967 
966 
969 
990 
991 
992 
993 
994 
995 
996 
997 
996 
999 
1000 



010050 
010050 
010054 
010060 
010064 
010066 
010070 
010072 
010072 
010074 
010076 
010102 
010106 
010110 
010112 
010116 

010120 



010164 
010164 
010170 
010174 



010200 
010200 
010202 
010206 
010212 
010214 
010216 



015700 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



013702 
013701 



010146 
012746 
012746 
010600 
104414 
062706 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



IMPLICIT INPUTS 

ERRHI 
ERRLO 



HIGH ORDER ADDRESS 
LOW ORDER ADDRESS 



PRIADO: 



002230- 
002232' 



010120- 
000003 



000010 
116 



045 PRIAO: 



SAVREG 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTB 
MOV 

nov 

MOV 

MOV 

MOV 

JM9 

ADD 

RTS 

.ASCIZ 
.EVEN 



ERRHI. RO 

ERRLO. Rl 

R1.R2 

Rl 

RO 

•PRIAO.R0.R2 

R2. (SP) 

RO.-(SP) 

♦PRIAO.-(SP) 

♦3.-(SP) 

SP.RO 

CIPNTB 

♦10. SP 

PC 



I SAVE R1-R5 UNTIL NEXT RETURN 

iGET HIGH ADDRESSS 

iGET LOU ADDRESS 

tCOPY LOW ADDRESS 

•SHIFT BIT 15 TO C BIT 

I SHIFT INTO HIGH ORDER 

iPRINT MEMORY ADDRESS IN ERROR 



I RETURN 



'«MA MEMORY ERROR ADDRESS - «01«05' 



.S8TTL PRITAOO - PRINT MEMORY TEST ADDRESS 



PRINT MEMORY ADDRESS 

TMIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



IMPLICIT INPUTS 

ERRHI 
ERRLO 



HIGH ORDER ADDRESS 
LOW ORDER ADDRESS 



PRITAOO: 



002230' 
002232' 



010246' 
000002 



000006 



SAVREG 

nov 
nov 

I MOV 
I ROL 
I ROL 
PRINTB 

nov 

MOV 

MOV 

MOV 

TRAP 

ADO 



ERRHI .R2 

ERRLO. Rl 

R1.R2 

Rl 

RO 

•PRITO.Rl 

Rl.-(SP) 

♦PRITO.-(SP) 

#2.-(SP) 

SP.RO 

CIPNTB 

•6.SP 



I SAVE R1-R5 UNTIL NEXT RETURN 

iGET HIGH ADDRESSS 

tGET LOW ADDRESS 

(COPY LOW ADDRESS 

t SHIFT BIT 15 TO C BIT 

(SHIFT INTO HIGH ORDER 

(PRINT MEMORY ADDRESS LOU IN ERROR 



C4 



SEQ 041 



tool 



1002 
1003 
1004 
1005 
1006 
1007 
1006 
1009 
1010 
1011 
1012 
lOlS 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1025 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1051 
1052 
1055 
1054 
1055 
1056 
1057 
1058 
1059 
1040 
1041 
1042 
1045 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 



010222 
010222 
010224 
010250 
010254 
010256 
010240 
010244 

010246 
010511 



010556 
010556 
010562 
010570 
010576 
010400 
010402 
010406 



010246 

012746 010511' 
012746 000002 
010600 
104414 

062706 000006 
000207 



045 
045 



116 
116 



045 
045 



PRITO: 
PRITl! 



PPINTB 

MOV 

HOV 

MOV 

MOV 

TRAP 

ADO 

RTS 

.ASCIZ 
.ASCXZ 
.EVEN 



#rRITl.R2 

R2.-(SP) 

•PRITl. (SP) 

♦2,-(SP) 

SP.RO 

CIPNTB 

•6.SP 

PC 



iPRINT MEMORY ADDRESS HIGH IN ERROR 



•RETURN 



'^A MEMORY TEST ADDRESS LOW • 
'«N«A MCMORT TEST ADDRESS HIGH 



«06' 
■ <06' 



.SBTTL SPACE 



SPACE RECORDS (FORUARD AND REVERSE) COMMAND 



ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 



I»«>UT: 



R5 NUMBER OF RECORDS TO BE SPACED OVER 

BIT 15 CONTROLS DIRECTION 

BIT 15 - 0 IS FORUARD 

BIT 15 ■ 1 IS REVERSE 
RS FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A URITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT: 



CAPRY SET • SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 



RO THE CONTENTS OF R4 IS MOVED TO RO 

IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 



SPACE : 



012757 000764 010550' 
012757 140010 010540' 
005705 
100405 

010557 010542' 
000407 



SAVREG 

MOV 

MOV 

TST 

BMI 

MOV 

BR 



•500..SDELAY 

«I40010.80< 

R5 

5t 

R5.90* 

lot 



I SAVE T^C GENERAL REGISTERS 
iSET UP DELAY 

I SET UP COMMAND. SPACE FORWARD 

I CHECK FOR DIRECTION 

I BR. IF REVERSE INDICATED 

tLOAO UP NUMBER OF RECORDS TO SPACE 

I GO DO COMMAND 



TSV5 • GLOBAL AREAS hACRO HlllS 01 -FEB M 1S:55 
SPACE SPACE RECORDS (FORWARD AND REVERSE) COHMANO 



D4 



SEQ 042 



1052 


010410 


042703 


100000 


51: 


BIC 


•6IT1S.R3 


1053 


010414 


010S37 


010542' 




nov 


R3.90t 


1054 


010420 


052737 


000400 010540' 




BIS 


«BIT8,B0t 


1055 


010426 


012704 


010540' 


lot: 


nov 


•80t.R4 


1056 


010432 


010465 


000000 




nov 


R4,TS0B(R5) 


1057 


010436 


004737 


016140' 


151: 


JSR 


PC.WAITF 


1058 


010442 


103420 






BCS 


20 1 


1059 


010444 








DELAY 


250 




010444 


012727 


000250 




nov 


♦250. (PC)* 




010450 


000000 






.yORD 


0 




010452 


013727 


002116' 




nov 


LtDLY.(PC)* 




010456 


000000 






.MORD 


0 




010460 


005367 


177772 




DEC 


-6(PC) 




010464 


001375 






BNE 


. -4 




010466 


005367 


177756 




DEC 


-22( PC) 




010472 


001367 






BNE 


. -20 


1060 


010474 


005337 


010550' 




DEC 


SDELAY 


1061 


010500 


001356 






BNE 


151 


1062 


010502 


000411 






BR 


60 1 


1063 


010504 


016501 


000002 


20t: 


nov 


TSSR(R5).R1 


1064 


010510 


012702 


000200 




nov 


#SSR.R2 


1065 


010514 


020201 




25t: 


CMP 


R2.R1 


1066 010516 


001401 






BEQ 


40t 


1067 


010520 


000402 






BR 


601 


1066 


010522 


000261 




40t: 


SEC 




1069 


010524 


000401 






BR 


70t 


1070 010526 


000241 




60t: 


CLC 




1071 


010530 






70t: 






1072 


010530 


010400 






nov 


R4.R0 


107S 


010532 


000207 






RTS 


PC 



1074 

1075 
1076 
1077 
1078 
1079 

1081 010534 

1083 

1084 

1085 010540 
1086 

1087 010542 

1088 010544 

1089 010546 

1090 010550 
1091 

1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 



000000 

000000 
OOOOOO 
000000 
OOOOOO 



iCLEAR DIREC1I0N BIT 
I LOAD UP NUMBER OF RECORDS TQ SPACE 
I SET REVERSE BIT IN COMHANO PACKET 
iSET UP R4 WITH PACKET ADDRESS 
I SEND OUT COMMAND 
I WAIT FOR SSR 
iBR. IF SSR IS SET AND OK 
I DELAY ABOUT .25 SECONDS 



I BUMP DELAY COUNTER DOUN 

tBR. IF MORE DELAY 

iBR IF TROUBLE CARRY - CLEAR 

tREAO TSSR 

I SET UP EXPECTED 

lARE TNEY OK 

iBR. Zr EQUAL - OK 

I TROUBLE EXIT 

tSET CARRY NO TROUBLE 

lEXIT 

I CARRY CLEAR - ERROR 

I PASS PACKET ADDRESS 
{RETURN 



t PACKET FOR SPACE COMMAND 

* .BLKB 10-<.-TSV2C7> 



I COMMAND UORD 

80t: .UORO 

tNU»«ER OF RECORDS TO BE 

901: .UORO 

.UORD 

.UORD 
SDELAY: .UORO 0 

.EVEN 



SPACED OVER UORD 



t DELAY COUNTER 



.SBTTL URTCHR - URITE CHARACTERISTICS COMMAND 

i ♦ 

IrOUTINE to ISSUE A URITE CHARACTERISTICS 

I COMMAND SO THAT OTHER COMMANDS UILL BE ACCEPTED 

t 



J INPUT! 



E4 



TSV5 GtOeAL AREAS MACRO HIUS 01 FEB-a4 18:55 
URTCHR URITE CHARACTERISTICS COMMAND 



SEQ 043 



lies 






1104 






1105 






1106 






1107 






1108 






1109 






1110 






1111 






1112 






1115 






1114 






1115 






1116 






1117 






1118 






1119 






1120 






1121 






1122 






1123 






1124 






1125 






1126 


010552 




1127 


010552 




1128 


01CS56 


005037 


1129 010562 


005037 


1130 


010566 


010465 


1131 


010572 


004737 


1132 


010576 


103401 


1133 


010600 


000435 


1134 


010602 


016501 


1135 


010606 


012702 


1136 


010612 


032701 


1137 


010616 


001402 


1138 


010620 


052702 


1139 010624 


020201 


1140 


010626 


001401 


1141 


010630 


000421 


1142 010632 


062704 


1143 


010636 


011403 


1144 


010640 


032763 


1145 


010646 


001402 


1146 


01C650 


005237 


1147 


010654 




1148 


010654 


032763 


1149 


010662 


001402 


1150 010664 


005237 


1151 


010670 




1152 


010670 


000261 


1153 


010672 


000401 


1154 


010674 


000241 


1155 


010676 


016500 


1156 


010702 


000207 


1157 






1158 






1159 







R4 ADDRESS OF PACKET FROM TEST 

R5 FIRST DEVICE VJNIBUS ADDRESS 

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT ! 



RO TSSR CONTENTS 

CARRY SET - URITE CHARACTERISTICS COMMAND OK 
CLR - URITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 

SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA • EXTENDED FEATURES PRESENT 
BENBSW • BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



002222' 
002220' 
000000 
016226' 



000002 
000200 
000100 

000100 



000010 

000200 000012 
002220' 

000100 000012 
002222' 

000002 



WRTCHR: 



lot: 



201 < 



251 i 



401: 



451: 



sot: 



60t: 
70t: 



SAVREG 

CLR 

CLR 

MOV 

JSR 

BCS 

BR 

MOV 

MOV 

BIT 

BEQ 

BIS 

CMP 

BEQ 

BR 

ADO 

MOV 

BIT 

BEQ 

INC 

BIT 
BEQ 
INC 

SEC 

BR 

CLC 

MOV 

RTS 



BENBSW 
EXTFEA 
R4.TS06(R5) 
PC.CMKTSSR 
20 1 
60t 

TSSR(R5).R1 
•SSR.R2 
4K)FL.R1 
25t 

•0FL.R2 
R2.R1 
40 1 
60 1 

•8. .R4 

(R4).R3 

#X2.EXTF.XST2(RS) 
45t 

EXTFEA 



tSAVE THE GENERAL REGISTERS 
I CLEAR BUFFER ENABLE SWITCH 

I CLEAR EXTE«E0 FEATURES SU SWITCH 
I SEND OUT COMMAND 
I WAIT FOR SSR 
iBR. IF SSR IS SET AND OK 
I BR IF TROUBLE CARRY - CLEAR 
iREAO TSSR 
I SET UP EXPECTED 
(WAS OFF LINE SET IN TSSR 
tBR. IF NO OFL SET 
I MAKE THEM LOOK ALIKE 
tARE THEY OK 
tBR. IF EQUAL - OK 
t TROUBLE EXIT 

I POINT TO WRT CHARA DATA PACKET 
iGET ADORCSS OF MESSAGE BUFFER 
lEXTENDEO FEATURES BIT SET? 
tBR IF NO 

I SET EXTENDED FEATURES SW SWITCH 



•X2.BUFE.XST2CR3) 
50t 

BENBSW 



70$ 

TSSR(R5),R0 
PC 



iBUFFER ENABLE SWITCH SET 

tBR. IF SWITCH NOT SET 

tSET SOFTWARE SWITCH FOR ENABLED 

I SET CARRY NO TROUBLE 
tEXIT 

I CARRY CLEAR - ERROR 
(RETURN TSSR CONTENTS 
t RE TURN 



.SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 



F4 



TSV5 GLOBAL AREAS HACRQ MlllS 01 -FEB -84 18-55 

REWIND POSITION TAPE (REWIND) COMMAND 



SEO C4^ 



1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1176 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 



1195 
1196 
1197 
1198 
1199 
1200 
1201 
1203 
1205 
1206 
1207 
1208 
1209 
1210 



010704 
010704 
010710 
010714 
010720 
010724 
010730 
010732 
010732 
010736 
010740 
010744 
010746 
010752 
010754 
010760 
010762 
010764 
010766 
010770 
010772 



010774 
011000 
011000 
011002 



THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 



DO A SOFT INIT 

DO A WRITE CHARACTERISTICS 

JSR PC. RE WIND 



INPUT: 



R5 



OUTPUT 



RO 



REWIND:: 



012704 
010465 
v)12703 
004737 
103417 

012727 
000000 
013727 
000000 
005367 
001375 
0C5367 
0013«7 
005303 
001357 
000241 
010400 
000207 



102010 
OOOOOC 



011000* 
000000 
000550 
016140' 



000372 
0C2116' 
177772 
177756 



101: 



20t: 



RWPACK: 



SAVREG 
MOV 
MOV 
MOV 
JSR 
8CS 
DELAY 
MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
DEC 
BNE 
CLC 
MOV 
RTS 



.WORD 
.WORD 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



«RWPACK.R4 

R4.TSDB(R5) 
«360. .R3 
PC.WAITF 
20« 

250. 

•250..(PC)» 
0 

LIOLY.CPO* 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 
R3 
10$ 

R4.R0 
PC 



tSAVE R1-R5 UNTIL NEXT RETURN 

I GET PACKET ADDRESS 

tSENO PACKET ADDRESS TO EXECUTE 

lENOUGH TIME FOR 2400' REEL TO i^EWlND 

tWAIT FOR SSR TO SET 

(LEAVE WHEN SSR IS SET 

I WAIT FOR .25 SECONDS 



.BLKB 10-<. -TSV2£7> 



102010 
0 



tBUMP COUNTER DOWN 
{KEEP GOING 

t CLEAR CARRY TO SET ERROR 
(PASS THE PACKET ADDRESS 
I RE TURN 



(POST ION COMMAND (REWIND) 
I NOT USED 



.SBTTL CKRAM 



COIiPARE RAM TO I/O PACKET 



G4 



TSV3 GLOBAL AREAS MACRO MlllS 01-FEB 84 18:55 
CKRAn COMPARE RAM TO I/O PACKET 



SEQ 045 



1211 












1213 






1214 






1215 






1216 






1217 






1218 






1219 






1220 






1221 






1222 






1223 






1224 






1225 






1226 






1227 






1228 






1229 






1230 






1231 






1232 






1233 






1234 






1235 






1236 






1237 






1238 






1239 


011004 




1240 


011004 




1241 


011010 


012701 


1242 


011014 


012702 


1243 


011020 


005003 


1244 


011022 


004737 


1245 


011026 


112765 


1246 


011034 


004737 


1247 


011040 


010265 


1248 


011044 


004737 


1249 


011050 


116511 


1250 


011054 


122124 


1251 


011056 


001401 


1252 


011060 


005203 


1253 


011062 


005202 


1254 


011064 


020227 


1255 


011070 


003761 


1256 


011072 


005703 


1257 


011074 


001402 


1258 


011076 


000241 


1259 


011100 


000401 


1260 


011102 


000261 


1261 


011104 


012737 


1262 


011112 


000207 


1263 






1264 






1265 






1266 






1267 







ROUTINE TO READ THE FIRST 6 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT 1 



R4 

RS 



OUTPUT 1 



CARRY 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 
DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAM: 



002234* 
000201 

016226' 

000000 000000 

016226' 

000000 

016226' 

000000 



000210 



lot: 



201: 



000010 002274' 



30$: 
50$: 



i ♦ 
i 



SAVREG 




tSAVE THE GENERAL OEGISTERS 


MOV 


•RAMDATA.Rl 


J ADDRESS TO SAVE THE RAM DATA 


MOV 


•RMPKTBEG.R2 


iBYTE ADDRESS OF FIRST RAM DATA 


CLR 


R3 


I CLEAR THE ERROR FLAG 


JSR 


PC.CMKTSSR 


:WAIT FOR SSR 


MOVB 


•O.TSOB(R5) 


tSET MAINTENANCE MODE 


JSR 


PC.CMKTSSR 


iUAIT FOR SSR TO SET 


MOV 


R2.TS06CR5) 


(SELECT NEXT RAM ADDRESS 


JSR 


PC.CMKTSSR 


tWAIT FOR SSR TO SET 


MOVB 


TS8A(R5).(R1) 


tREAD THE RAM DATA 


CMP8 


(R1)».(R4)» 


J COMPARE TO EXPECTED 


BEQ 


20$ 


t BRANCH IF OK 


INC 


R3 


tSET ERROR FLAG 


INC 


R2 


; ADDRESS OF NEXT RAM LOCATION 


CMP 


R2.«RMPKTEN0 


{REACHED END YET ? 


BLE 


10$ 


{BRANCH TILL ALL READ 


TST 


R3 


tUAS AN ERROR FOUND ? 


BEQ 


30$ 


{BRANCH IF NOT 


CLC 




tCcEAR CARRY TO SHOW ERROR 


BR 


50$ 


(AND EXIT 


SEC 




{SHOW GOOD COMPARE 


MOV 


•S. .RAMSIZ 


{SETUP RAMSIZ ^OR PRAMPKT ROUTINE 


RTS 


PC 


{RETURN 



.SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 



H4 



TSV5 GLOBAL AREAS 
CKRAM^ 



1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1276 
1279 
1200 
12S1 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 



MACRO niiis 



_ _ 01 rea 

COMPARE RAM TO I/O CHARACTERISTICS OA 



84 



12 



:55 



SCO 046 



ROUTINE TO READ THE FIRST 6 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLXK. 



INPUT 1 



R4 

R5 



OUTPUT : 



CARRY 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



SET RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 
DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



011114 






CKRAn2: 








011114 








SAVREG 




iSAVE THE GENERAL REGISTERS 


011120 


012701 


002234' 




MOV 


«RAM0ATA.R1 


1 ADDRESS TO SAVE THE RAM DATA 


011124 


012702 


000167 




MOV 


•RMCHBEG,R2 


iBYTE ADDRESS OF FIRST RAM DATA 


011130 


005003 






CLR 


R3 


i CLEAR THE ERROR FLAG 


011132 


004737 


016226* 




JSR 


PC.CHKTSSR 


»WAIT FOR SSR 


011136 


112765 


000000 


000000 


MOVB 


•0.TS0B(R5) 


iSET MAINTENANCE MODE 


011144 


004737 


016226' 


101: 


JSR 


PC.CHKTSSR 


;WAIT FOR SSR TO SET 


011150 


010265 


000000 




MOV 


R2.TS0B(R5) 


! SELECT NEXT RAM ADDRESS 


011154 


004737 


016226' 




JSR 


PC.CHKTSSP 


iWAIT FOR SSR TO SET 


011160 


116511 


000000 




MOVB 


TSBA(R5).(Rl) 


:READ THE RAM DATA 


011164 


122124 






CMPB 


<R1)»,(R4)» 


:COMPARE TO EXPECTED 


011166 


001401 






BEQ 


201 


1 BRANCH IF OK 


011170 


005203 






INC 


RS 


iSET ERROR FLAG 


011172 


005202 




20$: 


INC 


R2 


(ADDRESS OF ^<EXT RAM LOCATION 


011174 


012737 


000010 


002274' 


MOV 


♦8.. RAMSIZ 


1 ASSUME EXTrEA NOT SET 


011202 


005737 


002220* 




TST 


EXTFEA 


lis THE SOFTWARE EXTENDED FEATURES SET 


011206 


001407 






BEQ 


25 » 


;BR. IF NOT SET 


011210 


012737 


000012 


002274' 


MOV 


♦10. .RAMSIZ 


tSET RAMSIZ FOR EXTEND FEATURES 


011216 


020227 


000200 




CMP 


R2.ARMCHEN0 


iAT FNO OF EXTENDED BUFFER 


011222 


003750 






BLE 


101 


jBR. IF NOT AT END YET 


011224 


000403 






BR 


27» 


iAT END BRANCH 


011226 


020227 


000176 


25* : 


CMP 


R2.»RnCHEND-2 


I REACHED END YET ? 


011232 


003744 






BLE 


10* 


iBRANCH TILL ALL READ 


011234 


005703 




27(: 


TST 


R3 


iWAS AN ERROR FO<JND ? 


011236 


001402 






BEQ 


30$ 


{BRANCH IF NOT 


011240 


000241 






CLC 




(CLEAR CARRY TO 3H0U ERROR 


011242 


000401 






BR 


50 » 


iAt«} EXIT 


011244 


000261 




301: 


SEC 




J SHOW GOOD COMPARE 


011246 


000207 




50»: 


RTS 


PC 


(RETURN 



TSV5 - GLOBAL AREAS MACRO Ml 113 01 -FEB -64 18:55 
CKMSG COMPARE URITE CHAR. MESSAGE BUFFERS 



14 



SEQ 047 



1S25 
1326 
1327 
1326 
1329 
133A 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1336 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1346 
7 549 
•50 
. 551 
1352 
1353 
1354 
1355 
1356 
1557 
1356 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1366 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1376 
1379 
1360 
1361 



.SBTTL CKMSG 



COMPARE WRITE CHAR. MESSAGE BUFFERS 



011250 
011250 
011254 
011260 
011264 
011270 
011272 
011276 
011300 
011302 
011304 
011306 
011312 
011316 
011320 
011322 
011324 
011330 
011334 
011336 
011344 
011346 
011352 
011354 
011356 
011360 
011362 
011364 
011366 



ROUTINE TO COMPARE A ulRITE CHARACTERISTICS EXPO ANO RECV 
BUFFER. THE EXPECTED ANO RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



OUTPUT: 



RO 
Rl 

R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOU ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET • MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOAOD 



CKMSG: 



BUFFER IS SET TO EXPO DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOU ORDER ADDRESS OF RECV 



010037 
010137 
005737 
001403 
004737 
010001 
005004 
005003 
010205 
011264 
011164 
022221 
001401 
005203 
062704 
020427 
003764 
032765 
001403 
020427 
003755 
005703 
001402 
000241 
000401 
000261 
000207 



002276' 
002300' 
003126' 

017210' 



002314' 
002460' 



000002 
000014 

000200 000012 
000016 



101: 



151: 



25t: 



501: 



55 1: 
60»: 



SAVREG 




(SAVE R1-R5 UNTIL NEXT RETURN 


MOV 


RO, RCVHIADD 


iSAVE RECV HIGH ADDRESS 


NOV 


Rl.RCVLOAD 


iSAVE RECV LOU ADDRESS 


TST 


KTENABLE 


(TESTING ABOVE 26K? 


BED 


10) 


iBR IF NO 


JSR 


PC.SETMAP 


(RETURN ADDRESS BIASED TO PAR6 IN RO 


NOV 


RO.Rl 


(GET RETURNED ADDRESS BIASED TO PAR6 


CLR 


R4 


lUORO IN BUFFER 


CLR 


R3 


1 CLEAR ERROR SEEN FLAG 


MOV 


R2.R5 


iGET EXPO BUFFER ADDRESS 


MOV 


(R2).EXPMSG(R4) 


iSAVE EXPO FOR ERROR REPORT 


MOV 


CR1).RECMSG(R4) 


(SAVE RECV FOR ERROR REPORT 


CMP 


CR2)*.(R1)» 


lEXPD EQUAL RECV? 


BEQ 


25* 


iBR IF YES 


INC 


RS 


iSET ERROR SEEN FLAG 


ADO 


•2.R4 


(POINT TO NEXT UORD ADDRESS 


CMP 


R4.«14 


(DONE FIRST 7 UORDS? 


OLE 


15t 


(BR IF NO 


BIT 


•X2.EXTF.XST2(R5 


)tIS EXTENDED FEATURES SET IN EXPO? 


BEQ 


50« 


(BR IF NO 


CMP 


R4.«16 


(DONE EXTENDED FEATURES UORD? 


BLE 


151 


(BR IF NO 


TST 


RS 


(ANY ERRORS SEEN? 


BEQ 


S5t 


(BR IF NO 


CLC 




(SET FAILURE 


BR 


60t 




SEC 




SET SUCCESS 


RTS 


PC 


(RETURN 



.SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



TSV3 GLOBAL AREAS MACRO MlilS Ol-FEB-84 10:55 
CKMSG2 COMPARE EXPO RECV MESSAGE BUFFERS 



J4 



SEQ 048 



ise? 

1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 



1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 



011370 
011370 
011374 
011400 
011402 
011406 
011406 
011412 
011416 
011420 
011422 
011426 
011432 
011436 
011442 
011444 
011450 
011452 
011454 
011456 
011462 
011466 
011470 
011472 
011474 
OllSOO 
011502 
011504 
011506 
011510 
011512 



ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



RO 
Rl 
R2 
R3 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOU ORDER ADDRESS 
EXPO MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



OUTPUT; 



CARRY 



SET 
CLR 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADO 
RCVLOADD 



CKMSG2:: 



MESSAGE BUFFERS MA1CH 
MESSAGE BUFFERS DON' T MATCH 



BUFFER IS SET TO EXPO DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOU ORDER ADDRESS OF RECV 









SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 


020327 


000144 




CMP 


R3.MECMSG -EXPMSG 1 880 IS COUNT ABOVE MAX ALLOUED? 


003412 






BLE 


51 


1880 BR IF NO 


012703 


000144 




MOV 


«8ECMSG-EXPMSG . R3 1 880 








PRINTF 


«OEBUGMSG 


1880 


012746 


011522' 




MOV 


«OEBUGMSG.-(SP) 




012746 


000001 




MOV 


♦l.-(SP) 




010600 






MOV 


SP.RO 




104417 






TRAP 


CIPNTF 




062706 


000004 




AOO 


♦4.SP 




010037 


002276' 


SI: 


MOV 


RO.RCVHIADD 


(SAVE RECV HIGH ADDRESS 


010137 


002300' 




MOV 


Rl.RCVLOAO 


iSAVE RECV LOU ADDRESS 


005737 


003126' 




TST 


K TENABLE 


{TESTING ABOVE 28K? 


001403 






BEQ 


101 


iBR IF NO 


004737 


017210' 




JSR 


PC.SETMAP 


{RETURN ADDRESS BIASED TO PAR6 IN RO 


010001 






MOV 


RO.Rl 


iGET RETURNED ADDRESS BIASED TO PAR6 


005004 




101: 


CLR 


R4 


tUORD IN BUFFER 


005005 






CLR 


R5 


1 CLEAR ERROR SEEN FLAG 


111264 


002314' 


15$: 


MQVB 


(R2).EXPMSG(R4) 


iSAVE EXPO FOR ERROR REPORT 


111164 


002460' 




M0V8 


CR1).RECMSG(R4) 


iSAVE RECV FOR ERROR REPORT 


122221 






CMPB 


(R2)*.(R1)» 


lEXPD EQUAL RECV? 


001401 






BEQ 


251 


iBR IF YES 


005205 






INC 


R5 


iSET ERROR SEEN FLAG 


062704 


000001 


25>: 


ADD 


«1.R4 


1 POINT TO NEXT BYTE 


020403 






CMP 


R4.R3 


(DONE ALL BYTES? 


002001 






BGE 


sot 


iBR IF YES 


000764 






BR 


15 1 


iDO NEXT BYTE 


005705 




501: 


TST 


R5 


(ANY ERRORS SEEN? 


001402 






BEQ 


55t 


iBR IF NO 


000241 






CLC 




iSET FAILURE 



I<4 



TSV3 • GLOBAL Af,_AS MACRO M1115 Ol-FEB-e4 18:55 
CKMSCa COr«>ARE EXPO RECV MESSAGE BUTFERS 



SEQ 049 



1454 
1455 
1456 
1457 
1438 
1459 
1440 
1441 
1442 
1445 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1455 
1454 
1455 
1456 
1457 
1458 
1459 
1460 

1461 
1462 
1463 



1464 
1465 
1466 
1467 
1468 
1469 
i470 
1471 
1472 
1473 
1474 
1475 
1476 

1477 
1478 
1479 
1480 



1481 
1482 
1483 
1484 



011S14 


000401 






01 1516 


000261 






011520 


000207 






011522 


120 


122 


117 


011612 


045 


116 


045 


011623 


040 


040 


124 


011656 


056 


056 


056 


011711 


124 


105 


123 



011724 
011724 
011724 
011750 
011734 
011734 
011734 



011736 
011736 
011736 
011742 
011746 
011752 
011752 
011752 



004737 
004737 



104423 



005632' 
017074' 



004757 
012700 
004737 



104423 



005632' 

000004 

007260' 



BR 60* 

55 »: SEC 

60»: RTS PC 



I SET SUCCESS 
(RETURN 



OEBUGMSG: 
FERCM: .ASCII 
ERCM: .ASCIZ 
SinSG: .ASCIZ 
TINERR: .ASCIZ 
.EVEN 



.ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGF. BUFFER EXCEEDED 
/«N«A 

/ TSSR ERROR CODE REC'D - / 

/ AFTER DOING SOFT INIT/ 

/TEST: .../ 



PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
INPUT: 

Rl CONTENTS OF TSSR AT ERROR 

SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



SFinSG: : 



BGNMSG SFinSG 



L10003: 



JSR 

JSR 

ENDMSG 
TRAP 



PC.PHITSSR 
PC.CKDROP 



CtnSG 



{PRINT CONTENTS OF TSSR REGISTER 
I DROP UNIT. IF ALLOUED 



jPRINT ROUTINE TO PRINT THE CONTENTS OF 

iTSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET, 



I INPUTS: 



PKTSSR: 



L10004: 



Rl TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



BGNMSG PKTSSR 



JSR 
MOV 
JSR 

ENOMSG 
TRAP 



PC.PRITSSR 

M.RO 

PC.PRIPKT 



CIMSG 



{PRINT THE CONTENTS OF TSSR REGISTER 

(NO. OF UOROS IN PACKET 

{PRINT THE CONTENTS OF COMMAND PACKET 



{PRINT ROUTINE TO PRINT THE CONTENTS OF 
{TSSR ANO A GET STATUS COMMAND PACKET. 



L4 



TSWS - GLOBAL ARCAS MACRO H1115 01 -FEB 84 18r55 

CKHSG2 COMPARE EXPO RECV MESSAGE BUFFERS 



SEQ 050 



1485 
1486 
1487 
1488 
1489 
1490 
149* 
1492 
1493 

1494 

1495 
1496 
1497 



1496 
1499 

1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 

1510 
1511 



1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 

1528 
1529 
1530 
1531 
1532 



011754 
011754 
011754 
011760 
011764 
011770 
011770 
011770 



011772 
011772 
011772 
011776 
011776 
011776 



012000 
012000 
012000 
012004 
012006 
012010 
012014 
012014 
012014 



004737 005632' 
012700 000002 
004737 007260' 



104423 



004737 005632' 



104423 



004737 005632' 

010200 

010301 

004737 014132' 



104423 



>I»«>UTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



PKTGETS: 



BGNMSG PKTGETS 



L 10005: 



JSR 
MOV 
JSR 

ENOMSG 
TRAP 



PC.PRITSSR 

♦2,R0 

PC.PRIPKT 



CIMSG 



»PRINT THE CONTENTS Of TSSR REGISTER 
I NO. OF WORDS IN GET STATUS PACKET 
jPRINT THE CONTENTS OF COMMAND PACKET 



I PRINT TSSR ERRORS FOR INITIALIZATION TESTS 



s INPUTS: 
: 

; R4 

i - 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



SFFMSG: 



L10006: 



BGNMSG SFFMSG 

'jSR PC.PRITSSR 
ENOMSG 

TRAP C«MSG 



(PRINT CONTENTS OF TSSR REGISTER 



.SB TIL PKTMES 



PRINT TSSR AND MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
iBUFFER FOR ERROR REPORTS 



INPUTS: 



PKTMES: 



Rl CONTENTS OF TSSR 

R2 LOW ORDER MESSAGE BUFFER 

R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 



BGNMSG PKTMES 



L 10007: 



JSR 
MOV 
MOV 
JSR 

ENOMSG 
TRAP 



PC.PRITSSR 
R2.R0 
R3.RI 
PC.PRMESS 



CtMSG 



J PRINT CONTENTS OF TSSR 
(LOW ORDER ADDRESS 
(HIGH ORDER ADDRESS 
s PRINT THE MESSAGE BUFFER 



M4 



SEQ 051 



1553 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 

1548 
1549 

1550 
1551 



1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 

1567 
1566 
1569 
1570 
1571 
1572 



1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 



.SBTTL AOOSSR 



PRINT TbST ADDRESS AND TSSR 



012016 
012016 
012016 
01202L 
012026 
012032 
012032 
012032 



004737 010164' 
016501 000002 
004737 005632' 



104423 



012034 
012034 
012034 
012040 
012044 
012046 
012052 
012056 
012056 
012056 



012700 000007 

005737 002220' 
001402 

012700 000010 

004737 014442' 



104423 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MEMORY TEST ADDRESS 



INPUTS: 



R5 FIRST DEVICE UNIBUS ADDRESS 

ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOU ORDER MEMORY TEST ADDRESS 



ADDSSR: 



BGNMSG ADDSSR 



L 10010: 



JSR 
MOV 
JSR 

ENOMSG 
TRAP 



PC.PRITADD 

TSSR(R5).R1 

PC.PRITSSR 



CIMSG 



J PRINT MEMORY TEST ADDRESS 
iGET CURRENT TSSR 

I PRINT THE CONTENTS OF TSSR REGISTER 



.SBTTL MSGEXP - PRINT URITE CHAR. EXPD-RECV MESSAGE BUFFERS 

PRINT ROUTINE W PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS: 

EXPMSG • EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



BGNMSG MSGEXP 

MSGEXP: : 

MOV 
TST 
BEQ 
MOV 

5$: JSR 

ENOMSG 

LlOOll: 

TRAP 



«7.R0 

EXTFEA 
5) 

♦8. .RO 
PC.PRMSGEXP 



{ASSUME NO EXT FEATURES 
jEXT FEATURES SET? 
I BR IF NO 

:EXT FEATURE BUFFER IS 8 WORDS 
sPRINT EXPD/RECV MESSAGE BUFFERS 



C»MSG 



, SBTTL FIFEXP 



PRINT FIFO EXP/RECV DATA 



.•PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
* Rl - BYTE COUNT 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 



TSV3 GLOeAL AREAS 



FIFFXP "PRINT FIFO EXP/RECV oiU 



MACRO 



5 01-FE3-84 18:55 



N4 



SEQ 052 



1584 








s RECnSG 


- RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA DM t 


1585 










1586 012060 








BGNMSG 


FIFEXP 


012060 








FIFEXP: : 




1587 012060 








PRINTX 


FIFIMSG. Rl iPRINT BYTES TRANSFFRRFCj 


012060 


010146 






HOV 


Rl. -(SP) 


012062 


012746 


012132' 




MOV 


•FIFIMSG. -CSP) 


012066 


012746 


000002 




MOV 


*2. -CSP) 


012072 


010600 






MOV 


SP.RO 


012074 


104415 






TRAP 


CtPNTX 


012076 


062706 


000006 




ADD 


#6.SP 


1588 012102 








PRINTX 


•FIF2MSG : PRINT HEADER MSG 


012102 


012746 


012201 ' 




MOV 


•FIF2MSG, -(SP) 


012106 


012746 


000001 




MOV 


01, -CSP) 


012112 


010600 






MOV 


SP.RO 


012114 


104415 






TRAP 


CIPNTX 


012116 


062706 


000004 




ADD 


#4.SP 


1569 012122 


010100 






MOV 


Rl.RO iGET BYTE COUNT 


1590 012124 


004737 


015012' 




JSR 


PC.PR6YTEXP (PRINT FIFO BYTES IN ERROR 


1591 012130 








ENOMSG 


012130 








L10012: 




012130 


104423 






TRAP 


CIMSG 


1592 012132 


045 


116 


045 


FIFIMSG: 


.ASCIZ '«WA NUMBER OF BYTES TRANSFERRED - «02' 


1593 012201 


045 


116 


045 


FIF2nSG: 


.ASCIZ '«WA FIFO DATA BYTES IN ERROR;' 


1594 








.EVEN 




1595 










1596 








.SBTTL 


MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 

1609 012240 
012240 
012240 
012244 
012246 
012250 
012250 
012252 
012256 
012260 
012262 
012266 
012270 
012274 
012300 
012300 
012300 
1618 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD' RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



1610 
1611 
1612 
1613 



1614 
1615 
1616 
1617 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 



012302' 



000001 



000004 

000012 
014442' 



nSGSTAT: 
101: 



20»: 



L 10013: 



BGNMSG 


MSGSTAT 




« 

MOV 


•STATCOD.Rl 


: ASCII ADDRESS TABLE 


MOV 


(R1)»,R0 


:DONE ALL MSG LINES? 


BEQ 


20i 


iBR IF YES 


PRINTX 


RO 


: PRINT STATUS BIT NAMES 


MOV 


RO.-CSP) 




MOV 


♦l.-(SP) 




MOV 


SP.RO 




TRAP 


C»PNTX 




ADD 


•4.SP 




BR 


101 


:00 ANOTHER MSG LINE 


MOV 


no..RO 


(NUMBER OF WORDS IN A READ STATUS 


JSR 


PC.PRMSGEXP 


(PRINT EXPD/RECV MESSAGE BUFFERS 


ENOMSG 






TRAP 


C$MSG 





B5 



TSVS GLOeM. AREAS MACW) (11115 01 FEB 04 19:55 
NSGSTAT • PRINT STATUS HEADER AND MESSAGE BUFFERS 



SEQ 053 



1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1651 
1652 
1655 
1654 
1635 
1656 
1657 
1656 
1659 
1640 
1641 
1642 

1645 
1644 
1645 
1646 



1647 
1646 
1649 

1650 



1651 
1652 
1655 
1654 
1655 
1656 
1657 
1656 
1659 
1660 
1661 
1662 
1665 
1664 
1665 
1666 
1667 



012502 
012520 
012562 
012455 
012544 
012655 
012677 



012754 
012754 
012754 
012760 
012762 
012764 
012764 
012766 
012772 
012774 
012776 
015002 
015004 
015010 
015014 
015014 
015014 

015016 
013056 
0151 11 
015210 
015507 
013406 
015505 
015604 



012520' 012562- 

045 116 

045 116 

045 116 

045 116 

045 116 

045 116 



012453' 
045 
045 
045 
045 
045 
045 



012701 015016' 

012100 

001410 

010046 

012746 000001 

010600 

104415 

062706 000004 
000766 

012700 000012 
004757 014442' 



104425 

015036' 015111' 

045 116 

045 116 

045 116 

045 116 

045 116 

045 116 

045 116 



015210' 
045 
045 
045 
045 
045 
045 
045 



STATCOO: .UQRO 1 I ,21 . 31 .41 .51 .6* .0 

lt:.ASCIZ '«N«A Tap* Bu0 Signals in Word «8i 

2t:.ASCIZ 'UNMA PARERR<15> lEOT <12> 

3»:.ASCIZ '•fWA IRESV2<14> II0£NT<11> 

.ASCIZ '«N«A IRESV1<15> ICER <10> 

.ASCIZ 'tffMA Tap* Bu« Signal* in Uord *9:' 

.ASCIZ '^NMA 0ATnXS<7> ILU<6> 0UTR0r<5> 

.EVEN 



41 

51 
61 



IFMK *9> 
IHER <8> 
ISPEE0<7> 



IR0Y<6> 
I0NL<5> 
IL0P<4> 



IRU0<2>' 
IFBr*l>' 
IFPT<0>' 



INRDY<4>' 



.SBTTL nsGLOOP - PRINT L00P6ACK HEADER AND MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPO/RECV 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIAOD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOAOO- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



BGNMSG 
MSGLOOP:: 

NOV 

lot: nov 

BEQ 
PRINTX 

nov 

MOV 

nov 

TRAP 

ADD 

BR 

201: nov 
JSR 

ENDMSG 

L 10014: 

TRAP 



MSGLOOP 

*L00PC00.R1 

(R1)*.R0 

201 

RO 

RO.-(SP) 

♦l.-(SP) 

SP.RO 

C»PNTX 

44. SP 

101 

•10. .RO 
PC.PRMSGEXP 



CIMSG 



lASCII ADDRESS TABLE 
iDONE ALL MSG LINES? 
iBR IF VES 

iPRINT STATUS BIT NAMES 



I DO ANOTHER MSG LINE 

iNUr«ER OF WORDS IN A READ STATUS BUFFER 
I PR INT EXPO/RECV MESSAGE BUFFERS 



LOOPCOO: 
II .-.ASCIZ 
2t:. ASCIZ 
51:. ASCIZ 
4t:. ASCIZ 
51:. ASCIZ 
61:. ASCIZ 
7 I:. ASCIZ 



.WORD II. 21. 51. 41.51.6*. 71.0 
itHM Tap* Bu* Loepback Signal* in Uor<t M: 



.EVEN 



■««IA PARERR<15> 

'KNaA IMISP->IE0T<12> 

'i»MA lUFM >>IFMK<09> 

'«<MA ITA00'>IR0Y<06> 

'««(A IREU •>IDBt<05> 

'«NitA IGO ->IFPT<00> 



IRESV2«14> 
IURT->II0ENT<11> 
IE0IT->IHER <0a> 
ITAD1->I0NL <05> 
IRUU ■>IRU0 <02> 



IRESV1<13>' 
IREV ->ICER <10> 
IFAD ->ISPEED<C7>' 
IERASE->ILDP <04> 
IFEN •>lFBt «0l> 



.SBTTL MSGSUB PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPO/RECV 



C5 



4 18:55 



SEQ 054 



1660 
1669 
1670 
1671 
1672 
1675 
1674 
1675 

1676 
1677 
1678 



1679 
1680 
1681 
168^ 
1685 
1664 
1685 
1666 
1667 
1666 
1689 
1690 
1691 
1692 
1695 
1694 
1695 
1696 

1697 
1696 
1699 
1700 
1701 



1702 
1705 
1704 
1705 
1706 
1707 
1706 
1709 
1710 
17*1 
1712 
1715 
1714 
1715 
1716 
1717 
1716 



015652 
015652 
015652 
015656 
015642 
015642 
015642 



IMPLICIT INPUTS: 



EXPnSC EXPECTED MESSAGE BUTFER 
RECMSG • RECEIVED MESSAGE BUFFER 

RCVHIAOO- RECEIVED MESSAGE BUFFER MICH ORDER ADDRESS 
RCVLOAOD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012700 000012 
004757 014442' 



104425 



MSGSUB:: 



BGNMSG MSGSUB 



L 10015: 



HOV 
JSR 
ENOMSG 

TRAP 



•10.. RO 
PC.PRMSGEXP 



CIMSG 



•SIZE OF WRITE SUBSYSTEM BUFFER 
iPRINT EXPO/RECV MESSAGE BUFFERS 



015644 
015644 
015644 
015650 
015654 
015660 
015664 
01S664 
015664 



.SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 

» 

PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

IMPLICIT INPUTS: 

ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOU ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



004757 010050' 

015701 002224* 

015702 002226' 
004757 007652' 



104425 



MEMAOO: 



L10016: 



BGNMSG MEMAOO 



JSR 
MOV 
MOV 
JSR 

ENOMSG 

TRAP 

.SBTTL 



PC.PRIAOO 
EXPO.Rl 
RECV.R2 
PC.PRIXQR 



I PRINT MEMORY ADDRESS IN ERROR 
iGET EXPO DATA 
(GET RECEIVED DATA 
I PR INT EXPO/RECV 



CIMSG 
PRAMPKT 



PRINT RAM AND PACKET DATA 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA DOES NOT MATCH. 



WUTS: 



R4 



POINTER TO COMMAND PACKET 



IMPLICIT INPUTS: 

RAMOATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-O THEN DEFAULT TO 8. 



^^x^^KT^mNnas AND mmm 



D5 



1719 

l7^o 

1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1750 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 



01 FEB 84 18:55 



I IMPLICIT OUTPUTS! 



1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1746 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 



013666 
013666 
013672 
013676 
013700 
013702 
013704 
013714 
013716 
013722 
013726 
013736 
013742 
013750 
013756 
013756 
013760 
013764 
013770 
013772 
013776 
014002 
014004 
014006 
014012 
014014 
014020 
014022 
014026 
014030 
014032 
014036 
014040 
014044 

014046 



012701 
005002 
122134 
001005 

000436 
116105 
116403 

042703 
116137 
116437 

010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003724 
000403 
020227 
002720 
005037 
000207 

045 



002234' 



177777 
177777 

177400 
177777 
177777 



002224' 
002226' 

014046' 
000005 



000014 

002274' 

002274' 

000010 
002274' 

116 



002226' 
002224' 



045 



• 

i 

1 * 


RW1SIZ 


SET TO 0 














' SAVREG 




,cauc Qi QC iltiTTl MCyT OCTiBki 
1 3MwC ^3 1 11. riCAl 1 <jvfn 




NOV 


•RAMDATA.Rl 


•HATA rODM TmC DAM 




CLR 


R2 


tTMTT RyTP MMRPB 
1 1 OTIC (^unocn 




CHPB 


(R1)*.(R4)* 






BNE 


7» 


iBR IF MQ MATCH 




rORCERROR 7I.N0TSSR 






BR 


10» 


1 980 


71 • 


novB 


-KRD.RS 


tCJPT DFTU RAH DATA 




HOVB 


-1(R4),R3 


ifU^T FXPn PACKFT DATA 




XOR 


R5.R3 






BIC 


#177400, R3 






novB 


-KRD.RECV 


tfiPT RFCFTUFn RAM DATA 




HOVB 


-1(R4).EXPD 


iGET FXPECTFD RAM DATA 




PRINTB 


•RAMASC . R2 . REC V .EXPO . R3 






HOV 


R3.-CSP) 






MOV 


EXPO. -(SP) 






MOV 


RECV,-(SP) 






MOV 


R2,-CSP) 






MOV 


•RAMASC. -(SP) 






MOV 


•5.-(SP) 






MOV 


SP.RO 






TRAP 


CfPNTB 






ADD 


♦14. SP 




10«: 


INC 


R2 


1 UPDATE BYTE COUNT 




TST 


RAMSIZ 


iDEFAULT TO 8.? 




BEQ 


151 


,BR IF YES 




CMP 


R2. RAMSIZ 


iDONE ALL BYTES? 




BLE 


5$ 


tSR IF NO 




BR 


25$ 




15$: 


CMP 


R2.*8. 


IdONE default NUMBER OF BYTES 


20t: 


BLT 


5$ 


iBR IF NO 


251: 


CLR 


RAMSIZ 


iSET default RAMSIZ 




RTS 


PC 


i RE TURN 


RAMASC: 


.ASCIZ 


'«NKA BYTE: «02«A RAM: 


«03«A Pack«t: «03tfA XOR:«03' 



.EVEN 
.SBTTL PRMESS 



PRINT CONTENTS OF MESSAGE BUFFER 



THIS ROUTINE PRINTS THE CONTENTS OF 

THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 

TSV-05. 

INPUT: 

RO LOU ORDER ADDRESS OF MESSAGE BUFFER 

Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 

NOTE: Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 

I THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



TSVS - GLOBAL AREAS MACRO niilS Ol-FEB-84 16;55 
PfWESS - PRINT CONTENTS OF MESSAGE BUFFER 



E5 



SEQ 056 



1767 














1760 














1769 














1770 


014132 








t-KMESS : 




1771 


014132 










SAVREG 


1772 


014136 


010005 








MOV 


1773 


014 140 


005737 


003126' 






TST 


1774 


014144 


001001 








BNE 


1775 


014146 


005001 








CLR 


1776 


014150 


010103 






lot: 


MOV 


1777 


014152 


006100 








ROL 


1778 


014154 


006101 








ROL 


1779 


014156 
014156 
014160 


010546 
010146 








PRXNTX 

MOV 

MOV 




014162 


012746 


014310' 






MOV 




014166 


012746 


000003 






MOV 




014172 


010600 








MOV 




014174 


104415 








TRAP 




014176 


062706 


000010 






ACS 


1780 


014202 










PRINTX 




014202 


012746 


014355' 






MOV 




014206 


012746 


000001 






MOV 




014212 


010600 








MOV 




014214 


104415 








TRAP 




014216 


062706 


000004 






ADD 


1781 


014222 


005004 








CLR 


1782 


014224 


010501 








MOV 


1783 


014226 


010300 








MOV 


1784 


014230 


001403 








BEO 


1785 


0142S2 


004737 


017210' 






JSR 


1786 


014236 


010005 








MOV 


1787 


014240 
014240 
014242 


012546 
010446 






20$: 


PRZNTX 

MOV 

MOV 




014244 


012746 


014413' 






MOV 




014250 


012746 


000003 






MOV 




014254 


010600 








MOV 




014256 


104415 








TRAP 




014260 


062706 


000010 






ADD 


1788 


014264 


005204 








INT 


1789 


014266 


020427 


000007 






CMP 


1790 


014272 


003005 








BGT 


1791 


014274 


002761 








BLT 


1792 


014276 


032763 


000200 


000012 




BIT 


1793 


014304 


001355 








BNE 


1794 


014306 


000207 






501: 


RTS 


1795 














1796 


014310 


045 


116 


045 


PROASC: 


.ASCIZ 


1797 


014355 


045 


116 


045 


PRIASC: 


.ASCXZ 


1798 


014413 


045 


116 


045 


PRASC : 


.ASCIZ 



1799 
1800 
1601 
1802 
1803 
1804 



.EVEN 



I SAVE THE REGISTERS 
I SAVE LOU ORDER ADDRESS 
I ADDRESS ABOVE 28K? 
iBR IF YES 

(SET HIGH ORDER ADDRESS TO 0 
tSAVE HIGH ORDER ADDRESS 
iSHlFT BIT15 TO C BIT 
I SHIFT TO HIGH ORDER FOR PRINTOUT 
iPRINT MESSAGE BUFFER ADDRESS 



R0.R5 
K TENABLE 
101 
Rl 

R1.R3 
RO 
Rl 

•PROASC. R1.R5 
R5.-(SP) 
Rl.-(SP) 
•PROASC. -(SP) 
•S.-CSP) 
SP.RO 
CtPNTX 
•10. SP 
•PRIASC 
•PRIASC. -(SP) 
•l.-CSP) 
SP.RO 
CtPNTX 
•4.SP 
R4 

R5.R1 
R3.R0 
20t 

PC.SETMAP 
R0.R5 

•PRASC. R4.CR5)* 
(R5)».-<SP) 
R4..(SP) 
•PRASC. -(SP) 
•3,-(SP'> 
SP.RO 
CtPNTX 
•10. SP 

R4 I NUMBER OF THE NEXT 

R4.47 tOONE ALL YET ? 

50t {BRANCH IF ALL DONE 

20t I PRINT FIRST 7 UORDS 

•X2.EXTF.XST2(R3)t EX TENDED FEATUTES ON ? 
20t iPRINT EXTENDED STATUS WORD 

PC I RETURN 



Buffer Contents: 
UorditDUA: «0' 



I PRINT HEADER FOR CONTENTS 



•NUMBER OF THE NEXT WORD 
I COPY LOU ORDER ADDRESS 
{COPY HIGH ORDER ADDRESS 
I BR IF NOT ABOVE 28K 
I SETUP PAR ADDRESS IN RO 
iGET PAR FORMAT ADDRESS ABOVE 28K 
iPRINT THE CONTENTS OF MEMORY BUFFER 



'MWA 



.SBTTL PRMSGEXP - PRINT EXPO/RECV MESSAGE BUFFERS 



t ♦ 

i 



(ROUTINE TO PRINT EXPECTED ANC RECEIVED MESSAGE BUFFERS 



TSV3 GLOOAL AREAS MACRO Ml 113 01 FEB 84 18:55 

PRMSGEXP PRINT EXPD/RECV MESSAGE BUFFERS 



F5 



S£Q 057 



1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 



1824 



1825 
1826 
1827 
1828 
1829 
1830 
1831 



1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 



014442 
014442 
014446 
014450 
014454 
014456 
014462 
014464 
014466 
014466 
014470 
014472 
014476 
014502 
014504 
014506 
014512 
014512 
014516 
014522 
014524 
014526 
014532 
014534 
014540 
014544 
014546 
014550 
014560 
014560 
014562 
014564 
014566 
014570 
014574 
014600 
014602 
014604 
014610 
014612 
014614 
014616 
014620 

014622 
014667 
014725 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020405 
002001 
000752 
000207 

045 
045 
045 



RO - NUMBER QT WORDS IN BUFrER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADO- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 

PRMSGEXP: : 



002300' 
002276- 



014622' 
000003 



000010 

014667' 
000001 



000004 

002314' 
002460' 



201: 



014725' 

ooooos 



000014 



116 
116 
116 



501: 

045 PRMSGO 
045 PRMSGl 
C45 PRMSG2 



SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 


MOV 


R0,R5 


iSAVE NUMBER OF WORDS 


MOV 


RCVLOAOD.RO 


iGET RECV LOW ADDRESS 


MOV 


R0,R4 


iCOPY LOW ADDRESS 


MOV 


RCVHIADD. Rl 


iGET RECV HIGH ADDRESS 


RQL 


RO 


iSHlFT BIT15 TO C BIT 


ROL 


Rl 


1 SHIFT TO HIGH ORDER FOR PRINTOUT 


PRINTX 


PRMSGO, R1,R4 


1 PRINT MESSAI^E BUFFER ADDRESS 


MOV 


R4 , - ( SP ) 




MOV 


Rl, -(SP) 




MOV 


•PRMSGO, -(SP) 




MOV 


♦3, -(SP) 




MOV 


SP.RO 




TRAP 


C»PNTX 




ADD 


♦10, SP 




PRINTX 


♦PRMSGl 


1 PRINT HEADER FOR CONTENTS 


MOV 


♦PRMSGl. -(SP) 


MOV 


♦1. -(SP) 




MOV 


SP.RO 




TRAP 


CtPNTX 




ADD 


♦4,SP 




CLR 


R4 


(NUMBER OF THE CURRENT WORD 


MOV 


♦EXPMSG, Rl 


iGET EXPD BCFFER ADDRESS 


nuv 


♦RcCnSu.Rc 


tOcI HcLV oUrrER ADDRESS 


MOV 


(R1),R0 


iGET EXPO 


MOV 


(R2),R3 


tGET RECV 


XOR 


R0.R3 


iXOR EXPD/RECV 


PRINTX 


♦PRMS(i2,R4.(Rl) 


♦.(R2)*.R3 


MOV 


R3.-(SP) 




MOV 


(R2)*.-(SP) 




MOV 


CR1)»,-(SP) 
R4.-(SP) 




MOV 




MOV 


♦PRMSG2,-(SP) 




MOV 


♦5.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADO 


♦14. SP 




INC 


R4 


{NUMBER OF THE NEXT 


CMP 


R4.R5 


:D0NE ALL YET? 


BGE 


50$ 


iBR IF YES 


BR 


201 


iDO ANOTHER 


RTS 


PC 


i RE TURN 



.ASCIZ 'KNKA M««sao« Buffer Address - «01«05' 

.ASCIZ 'KNKA Msssage Buffsr Contents:' 

.ASCIZ 'KNKA WORD MD2«A EXPD: «06«A RECV: 



«06ilA XOR: 1106 



G5 



TSV3 GLOBAL AREAS MACRO M1113 01-FE8-84 16:55 

PRtlSGEXP PRINT EXPD/RECV MESSAGE BUFFERS 



SEQ osa 



1B41 
1842 
1043 
1844 
184S 
1646 
1847 
1848 
1849 
1650 
I6S1 
1652 
165S 
ISS4 
1655 
1656 
1657 
1656 
1659 
1660 
1661 
1662 
166S 
1664 
1665 
1666 
1667 
1666 
1669 
1670 
1671 
1872 
1673 
1674 
1675 



1876 
1877 
1878 
1879 
1880 
1881 
1662 
1863 
1684 
1685 



015012 
015012 
015016 
015020 
015024 
015026 
01S0S2 
015036 
015040 
015044 
015050 
015052 
015056 
015062 
015072 
015074 
015076 
015102 
015110 
015112 
015112 
015114 
015120 
015124 
015126 
0151S2 
015136 
015140 
015142 
015146 
015156 
015160 
015160 
015170 
015170 
015172 
015174 
015176 
015200 
015200 
015204 
015210 



010005 
005037 
005004 
012701 
012702 
111100 
042700 
110037 
111203 
042703 
110337 

122122 
001431 
005237 
023727 
101023 

010346 
013746 
013746 
010446 
012746 
012746 
010600 
104415 
062706 

000404 



005204 
020405 
002001 
000717 

013746 
012746 
012746 



.EVEN 

.SBTTL PRBYTEXP PRINT ERROR BYTES IN EXP/REC MESSAGE BOFFER 



: ♦ 



: ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

ONL> THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 



RO 

IMPLICIT INPUTS: 

EXPMSG - 
RECMSG • 



- NUMBER OF BYTES IN BUFFER 



EXPECTED MESSAGE BUFFER 
RECEIVED MESSAGE BUFFER 



002312' 

002314* 
002460' 

177400 
015360* 

177400 
015362* 



002312* 

002312* 000010 



015362* 
015360* 

015226 
000005 



000014 



PRBYTEXP:: 

SAVREG 

MOV 

CLR 

CLR 

MOV 

MOV 
20t: MOVB 

BIC 

MOVB 

MOVB 

BIC 

MOVB 

XOR 

CMPB 

BEQ 

INC 

CMP 

BHI 

27 •: PRINT X 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

FORCEXIT 
BR 35$ 



I SAVE R1-R5 UNTIL NEXT RETURN 

R0.R5 I SAVE NUMBER OF BrTES 

PRMNO iINIT ERROR COUNT 

R4 t NUMBER OF THE CURRENT BYTE 

•EXPMSG. Rl tGET EXPO BUFFER ADDRESS 

•RECMSG. R2 tGET RECV BUFFER ADDRESS 

(Rl).RO iGET EXPD BYTE 

•tC<377>.R0 iCLEAR UPPER BYTE 

RO.PRBEXP I SAVE FOR ERROR REPORT 

(R2).R3 (GET RECV BYTE 

♦tC<377>,R3 iCLCAR UPPER BYTE 

R3,PRBREC I FOR ERROR REPORT 

R0.R3 I XOR EXPD/RECV 

(R1)*.(R2)* lEXPD - RECV? 

30$ iBR IF YES 

PRMNO I UPDATE ERROR COUNT 

PRMNO. •a. {PRINTED 8? 

30t iBR IF YES 
•PR6MSG , R4 . PRBEXP . PRBREC . R3 
R3..(SP) 
PRBREC, -CSP) 
PRBEXP. (SP) 
R4.-(SP) 
•PRBMSG.-(SP) 
•5.-(SP) 
SP.RO 
CtPNTX 
♦14. SP 



501 



002312' 
015315' 
000002 



30$: 
35$: 



50$: 



FORCERROR 27$.N0TSSR 



iSSO 
i8SD 

iBSO 
i8S0 



INC 


R4 


iNUMBER OF THE NEXT 


CMP 


R4.R5 


jOONE ALL YET? 


BGE 


50$ 


iBR IF YES 


BR 


20$ 


iDO ANOTHER 


PRINTX 


•PR6 TOT. PRMNO 


t PRINT TOTAL ERROR COUNT 


MOV 


PRMNO. (SP) 




MOV 


•PRBTOT. (SP) 




MOV 


•2.-(SP) 





H5 



TSV3 GLOBAL AREAS 
PWYTEXP PRINT ERROR BYTES 



MACRO mi 13 
IN EXP/R 



ER 



SEQ 059 



1666 
1687 
1686 
1669 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1897 
1698 
1699 
1900 
1901 
1902 
1903 
1904 
1905 
1906 

1907 
1906 



1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 

1927 
1928 



1929 
1930 
1951 
1932 
1933 



015214 
015916 
015220 
015224 

0IS226 
015313 

015360 
015362 



015364 
015364 
015364 
015370 
015370 
015370 



015372 
015372 
015372 
015376 
015376 
015376 



010600 
104415 

062706 000006 
000207 



MOV SP.RO 
TRAP CI^NTX 



ADO 
RTS 



*6.SP 

PC 



I RE TURN 



045 
045 

000000 
000000 



116 
116 



045 PRBMSG: .ASCIZ '«NtfA BYTE «i«02«A EXPO: «OS«A RECV: «03«A XQR: «03- 

045 PRBTOT: ASCIZ '«N«A NUMBER OF BYTES IN ERROR - «02' 
.rVEN 

PRBEXP: .UORO 0 ;EXPO 

PRBREC: .WORD 0 iRECV 

.SBTTL EXPREC - PRINT EXPO/RECV WORD DATA 



PRINT ROUTINE TO DISPLAY EXPO/RECV DATA 
INPUTS: 



004737 007632' 



104423 



EXFREC: 



L10017: 



Rl RECEIVED DATA 

R2 EXPECTED DATA 



BGNMSG EXPREC 

JSR PC.PRIXOR 
ENOMSG 



» PRINT THE DATA 



TRAP 



C»MSG 



.SBTTL EXPBREC - PRINT EXPD/RECv BYTE DATA 
PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS: 



004737 007502' 



104423 



Rl RECEIVED DATA BvTE 

R2 EXPECTED DATA BYTE 



BGNHSG EXPBREC 
EXPBREC: : 

JSR PC.PRIBXOR 
ENOMSG 

L 10020: 

TRAP OMSG 



; PRINT THE DATA 



.SBTTL RAMERR 



PRIKT RAM AND PACKET DATA 



15 



TSV3 GLOBAL AREAS MACRO MlllS 

RAMERR PRINT RAM AND PACKET DATA 



1934 
1935 
193«> 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1946 
1949 
1950 
1951 
1952 
1953 



01 FEB 84 18:55 



« ♦ 



SEQ 060 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMDATA 
RAM3IZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8, 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 0 



1954 
1955 



1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 

1961 
1962 
1983 



1984 



015400 
015400 

015400 004737 013666' 

015404 

015404 

015404 104423 



RAMERR: 



L 10021: 



BGNMSG RAMERR 

*JSR PC.PRAMPKT 
ENDMSG 



iPRINT RAM/PACKET DATA 



TRAP 



CIMSG 



.SBTTL RAMTAOD - PRINT TEST ADDRESS. RAM AND PACKET DATA 

¥ 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 

ERRHI 
ERRLO 



DATA AS READ FROM THE RAM 

NUMBER OF BYTES IN PACKET 

IF RAMSIZ-0 THEN DEFAULT TO 8. 

HIGH ORDER TEST ADDRESS 

LOU ORDER TEST ADDRESS 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 0 



015406 
015406 

015406 004737 010164' 
015412 004737 013666' 
015416 
015416 

015416 104423 



RAMTAOD: 



BGNMSG RAMTAOD 



L10022: 



JSR 
JSR 

ENDMSG 
TRAP 



PC.PRITAOD 
PC.PRAMPKT 



CIMSG 



(PRINT TEST ADDRESS 
I PRINT RAM/PACKET DATA 



TSV5 CLOOAL ARFAS MACRO Ml 115 01 -FEB 84 18:55 

RAMTAOO PRINT TEST '^OORESS. RAM AND PACKET DATA 



J5 



SEQ 061 



1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1996 

1999 
2000 
2001 
2002 
2003 



2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 

2018 



2019 
2020 



2021 
2022 
2023 
2024 
2025 
2026 
2027 
2026 
2029 
2030 



.SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 

PRINT ROUTINE TO DISPLAY EXPQ/RECV DATA 
INPUTS: 

Rl RECEIVED DATA 

R2 EXPECTED DATA 

R4 CONTROLLER RAH ADDRESS 



015420 
015420 
015420 
015424 
015430 
015434 
015440 
015440 
015440 



042701 
042702 
004737 
004737 



104423 



177400 
177400 
007756' 
007632' 



RAMEXP : 



L 10023: 



BGNNSG RAMEXP 



BIG 
BIC 
JSR 
JSR 

ENOnSG 
TRAP 



♦tC<377>.Rl 
♦tC<377>.R2 
PC. PR IR AM 
PC.PRIXOR 



CIMSG 



tSAVE EXPD RAM DATA BYTE 

I SAVE EXPD RAM DATA BYTE 

t PR INT THE RAM ADDRESS 

I PRINT THE DATA 



.SBTTL TIMEXP • PRINT TIMER A. 8 AND EXP /REG 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
AND TIMER A.B HEADER MESSAGE 



INPUTS: 



Rl RECEIVED DATA 

R2 EXPECTED DATA 



015442 
015442 
015442 
015442 
015446 
015452 
015454 
015456 
015462 
015466 
015466 
015466 



TIMEXP:: 



015470 



012746 
012746 
010600 
104415 
062706 
004737 



104423 
045 



015470' 
000001 



000004 

007632' 



BGTtflSG TIMEXP 
PRINTX •TinSGO 



116 



045 



L 10024: 



TIHSGO: 
.EVEN 



: ♦ 
i 



MOV 
MOV 
MOV 
TRAP 
ADD 
JSR 

ENOHSG 
TRAP 



•TIMSGO.-(SP) 
#1. (SP) 
SP.RO 
CIPNTX 
#4.SP 
PC.PRIXOR 



CtMSG 



i PRINT HEADER 



s PRINT THE DATA 



.ASCIZ '«M<A TIMER A STATUS IS IN BIT 3«NKA TIMER B STATUS IS IN BIT 2 



.SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



K5 



MACRO M1113 _ 
PRINT TSSR ERRORS ON DATA TRANSrE 



TSV5 - GLOBAL AREAS 
BAOSSR 



2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 



0l_FEBg84 



18:55 



SEQ Otd 



iPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 



J INPUTS: 
; 

t Rl 
! R2 
i 

i - 



CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 



2041 
2042 
2043 



2044 
2045 
2046 



2047 
2048 
2049 

2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 



015570 
015570 
015570 
015572 
015576 
015576 
015600 
015604 
01S6I0 
01S6I2 
015614 
015620 
015622 
015626 
015626 
015626 
015630 



010246 
042702 

010246 
012746 
012746 
010600 
104414 
062706 
012602 
004737 



104423 
045 



BADSSR: 



BGNHSG BADSSR 



177400 



015630' 
000002 



000006 
005632' 

116 



L 10025: 
045 XFERASC: 



MOV 
BIG 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

JSR 

ENOMSG 
TRAP 



R2. (SP) 
• 1 77400, R2 
♦XFERASC. R2 
R2, -CSP) 
♦XFERASC. 
♦2.-(SP) 
SP.RO 
CIPNTB 
#6,SP 
(SP)».R2 
PC.PRITSSR 



I SAVE DATA TRANSFERRtD 
(GET JUST ONE BYTE 



(SP) 



(RESTORE R2 

I DECODE TSSR CONTENTS 



CtMSG 
.ASCIZ 



'MWA Data Transferred - «03' 



.SBTTL GLOBAL SUBROUTINES SECTION 



i THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
I THAT ARE USED IN MORE THAN ONE TEST, 
i - - 

.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT. 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



INPUTS: 



R5 ADDRESS OF FIRST REGISTER 



OUTPUTS. 

RO CONTENTS OF TSSR. IF ERROR 

CARRY SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 

CALLING SEQUENCE: 

MOV •ADDRESS. R5 



L5 



ISV5 GLOBAL AREAS 



SOf INIT 


SOFT 


INITIALIZE Of CONTftOLLEl 


2079 








2080 








2081 








2082 








2063 








2034 








2085 


015664 






2006 


015664 






2087 


015670 


012765 


000000 000002 


2068 


015676 


004737 


016140' 


2089 


015702 


016500 


000002 


2090 


015706 


010004 




2091 


015710 


042704 


176277 


2092 


015714 


052704 


002200 


2093 


015720 


020400 




2094 


015722 


001402 




2095 


015724 


000241 




2096 


015726 


000401 




2097 


015730 


000261 




2096 


015732 


000207 




2099 








2100 








2101 








2102 








2103 








2104 








2105 








2106 








2107 








2106 








2109 








2110 








2111 








2112 








2113 








2114 








2115 








2116 








2117 








2116 








2119 








2120 


015734 






2121 


015734 






2122 


015740 


010004 




2123 


015742 


032700 


100000 


2124 


015746 


001004 




2125 


015750 


032700 


174077 


2126 


015754 


001023 




2127 


015756 


000424 




2126 


015760 


032700 


000200 


2129 


015764 


001011 




2130 


015766 


032700 


000040 


2131 


015772 


001414 




2132 


015774 


042704 


177761 


2133 


016000 


020427 


000016 


2134 


016004 


001007 




2135 


016006 


000410 





MACRO Mill 3 01 FEB 84 18:55 



JSR 
BCS 
ERRDF 



PC.SOFINIT 
CONTINUE 



; REPORT FATAL ERROR 



SOFINIT: 



51: 
10»: 



J* 

; 



SAVREG 




1 SAVE THE REGISTERS 


MOV 


•O.TSSR(R5) 


1 00 THE INIT. 


JSR 


PC.WAITF 


t UAIT FOR SSR 


MOV 


TSSR(R5).R0 


iGET THE TSSR REGISTER 


NOV 


R0.R4 


iTSSR CONTENTS 


BIC 


•tCKHIAOORJOFL-^ 


.R4 


BIS 


•SSR!NBA.R4 


lR4 HAS EXPECTED CONTENTS 


CMP 


R4,R0 


lONLY EXPECTED BITS SET ? 


BEQ 


51 


•BRANCH IF OKAY 


CLC 




•CLEAR THE CARRY FOR ERROR 


BR 


101 


iGO TO EXIT 


SEC 




iSET THE CARRY BIT 


RTS 


PC 


{RETURN TO CALLER 


.S8TTL 


CHKAMB - CHECK 


TSSR FOR AMBIGUITY 



J THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
•FOR AMBIGUITY 



INPUT: 



•OUTPUT: 



CHKAMB: 



5»: 



RO 
RO 

CARRY 



SAVREG 

MOV 

BIT 

BNE 

BIT 

BNE 

BR 

BIT 

BNE 

BIT 

BEQ 

BIC 

CMP 

BNE 

BR 



CONTENTS OF TSSR 



CONTENTS OF TSSR 

SET - NO AfBIGUITY 

CLR - AMBIGUOUS CONTENTS 



•SAVE THE GENERAL REGISTERS 
R0.R4 {CONTENTS OF TSSR 

•SC.RO lis BIT 15 SET ? 

5$ (BRANCH IF YES 

♦tC<NBA!0FL!SSR!HIAODR>.RO jANY OTHER BITS SET 



401 
45 » 

«SSR.R0 
101 

«eiT5.R0 
40 > 

«tCTERCLS.R4 

R4.«16 

40$ 

45* 



•MUST BE AN ERROR 
•RETURN WITH SUCCESS 
•IS READY BIT SET ? 
•BRANCH IF READY BIT IS SET. 
•IS FATAL ERROR BIT SET ? 
•ERROR IF NOT 

•CLEAR ALL BUT TERMINATION CODE 
•ALL THREE BITS MUST BE SET 
•ERROR IF NOT SET 
•OK IF ALL ARE SET 



M5 



TSV3 Q-OeAL APEAS MACOO Ml 113 01 TEB 84 18:55 

CHKAMB CHECK TSSR FOR AMBIGUITY 

000040 

000006 



SEQ 064 



2156 


016010 


032700 


2137 


016014 


001405 


2136 


016016 


032700 


21S9 


016022 


001002 


2140 


016024 


000241 


2141 


016026 


000401 


2142 


016030 


000261 


2143 


016032 


000207 


2144 






2145 






2146 






2147 






2148 






2149 






2150 






2151 






2152 






2153 






2154 




000200 


2155 




000001 


2156 






2157 






2158 


016034 


000 


2159 






2160 


016035 


000 


2161 






2162 






2163 


016036 


000000 


2164 






2165 


016040 


000000 


2166 






2167 






2168 


016042 


010046 


2169 


016044 


013700 


2170 


016050 


012720 


2171 


016054 


012720 


2172 


016060 


012600 


2173 


016062 


011646 


2174 


016064 


012766 


2175 


016072 


000002 


2176 






2177 






2178 


016074 


011646 


2179 


016076 


012766 


2160 


016104 


000002 


2181 






2162 






2163 






2184 


016106 
016106 




2165 


016106 


012737 


2166 


016114 


105037 


2187 


016120 


132737 


2186 


016126 


001003 


2169 


016130 


152737 


2190 






2191 







002202' 
016106' 
000340 



000000 000002 



000340 000002 



000001 

016035' 

000001 

000001 



002216' 
016034' 
016035' 



lis FATAL ERROR BIT SET ? 
I ERROR IF BIT IS SET WITH SSR 
lis THIS A FUNCTION REJECT 
I BR. IF TSSR IS OK 
I AMBIGUOUS CONTENTS 

iSHOU SUCCESS - NO AMBIGUITY 
I RETURN TO CALLER 



I DEFAULT DISPLAY INTERRUPT HANDLERS. 

i IF DISPLAY TIME-OUT. REPORT OEV FATAL . AND ABORT PASS, 
t OTHERWISE. SAVE OPU REGISTERS AND DISMISS. 

s 

; BIT DEFINITIONS FOR "INTMASK" AND "INTFLAG' BYTES: 



101: 


BIT 


•BIT5.ro 




Ben 

BEQ 


451 




BIT 


•BIT2!BIT1,R0 




BNE 


45* 


4rt: 


CLC 






BR 


50* 


451: 


SEC 




50$: 


RTS 


PC 




.SBTTL 


ENAINT.DSBINT 



I0KCK1N-8IT7 
lOKSTP-BITO 



I DON'T CHECK FOR BAD INTERRUPTS 
; EXPECT "STOP" INTERRUPT. 



TEST WILL. 



{INTERRUPT MASK SAYS EXPECTING INTERRUPTS 
INTMASK: .BYTE 0 

I INTERRUPT FLAG -- SAYS WE GOT ONE CIF POSITIVE) 
INTFLAG: .BYTE 0 

(SAVED INTERRUPT VECTOR: 
INTVEC: .WORD 0 
I SAVE CPU PC 
INTCPC: .WORD 0 



i SUBROUTINE TO ENABLE INTERRUPTS: 



ENAINT: MOV 
NOV 
NOV 

nov 

MOV 

nov 

NOV 
RTI 



RO.-(SP) 
IVEC.RO 
♦INTR.CRO)* 
•PRI07.(R0)* 
(SP)».RO 
(SP).-fSP) 
•0.2CSP) 



:SAVE RO 
I GET POINTER TO VECTORS 
{SET UP INTERRUPT VECTOR 

{RESTORE RO 

J SET CPU TO LEVEL 0 



iSUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 



DSBINT: NOV 

nov 

RTI 



INTR: 



.SBTTL 

BGNSRV 

MOV 

CLRB 

BITB 

BNE 

BISB 



(SP).-(SP) 
•PRI07.2(SP) 



INTR - INTERRUPT HANDLERS 

INTR J DEFINE INTERRUPT ENTRY 

♦l.INTRECV J SET FLAG TO SHOW INTERRUPT RECEIVED 

INTFLAG I CLEAR FLAG TO SAY WE GOT INTERRUPT 

♦lOKSTP. INTMASK , EXPECTING STOP INTERRUPT? 

1« J BR IF YES 

•lOKSTP. INTFLAG jNO. SET THE ERROR FLAG. 



J SAVE REGISTERS, MSG BUFFER. ETC. 



N5 



TSV3 GLOBAL AREAS MACRO Ml 115 

INTR INTERRUPT HANDLERS 



01 FEB 64 18:55 



SEQ 065 



2192 
2193 



2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 

2211 
2212 
2213 
2214 
2215 
2216 



016136 
016136 
016136 
016136 



2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 



016140 
016142 
016142 
016144 
016150 
016154 

016156 
016160 
016160 
016164 
016166 
016172 
016174 
016200 
016202 
016206 
016210 
016212 
016214 
016216 
016220 
016222 
016224 



000002 



000401 

104422 
012746 
016500 
105700 

100420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005316 
001356 
000241 
000401 
000261 
005326 
000207 



011000 
000002 



000001 
002116' 
177772 
177756 



1*: 

L 10026: 



ENOSRV 



RTI 
.SBTTL 
SUBROUTINE TO 
INPUTS: 

R5 
OUTPUTS: 
RO 

CARRY 



WAITF - WAIT FOR SUBSYSTEM READY 
UAIT FOR THE SUBSYSTEM READY FLAG 

ADDRESS OF FIRST DEVICE REGISTER 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR - TIMEOUT WAITING FOR READY 



WAITF I 



1$: 



3»i 
4$; 



I ♦ 



BR 




NOP WHEN SUPER FIXED 




BREAK 


1 


DO A SUPVSR BREAK FIRST. 




TRAP 


C(6RK 






MOV 


♦11000, -(SP) i 


25-APRIL-83 REV B - llOO MSEC 


TIMER 


MOV 


TSSR(R5).R0 i 


READ THE TSSR REGISTER 




TSTB 


RO 


TEST FOR READY BIT SET 




BMI 


Zi 


EXIT ON STOP FLAG. 




DELAY 


1 


WAIT 100 USEC 




MOV 


♦l.CPO* 






.WORD 


0 






MOV 


L*DLY.(PC)* 






.WORD 


0 






DEC 


-6(PC) 






BNE 


.-4 






DEC 


-22(PC) 






BNE 


.-20 






DEC 


(SP) 


[REDUCE DELAY COUNT 




BNE 


21 


.RETRY UNTIL TIMER EXPIRES 




CLC 




! C - 0. CONTROLLER STILL RUNNING... 


BR 


4$ 


i...0R HUNG-UP AFTER 300 MSEC. 




SEC 


J C • 1. CONTROLLER IS STOPPED. 




DEC 


(SP)» 


[RESTORE STACK WITHOUT CHANGING 


CARRY 


RTS 


PC 







.SBTTL CHKTSSR - CHECK TSSR FOR READY 



.THIS ROUTIhC WAITS FOR READY IN THE TSSR 

J AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 



; INPUT: 
I 

s 

I OUTPUT: 
i 



R5 



ADDRESS OF CSR REGISTERS 



B6 
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CMCTSSR CHECK TSSR FOR READY 



SEQ 066 



2216 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2255 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2276 
2279 
2280 
2281 
2282 
2285 



2284 

2285 
2286 
2287 
2266 
2289 
2290 
2291 
2292 



016226 
016226 
016232 
016254 
016240 
016242 
016246 
016250 
016254 
016256 
016260 
016262 
016264 



016266 
016274 
016502 
016504 
016506 

016510 
016512 
016514 
016520 

016522 
016524 
016550 
016352 
016552 
016356 
016540 
016542 
016544 
016546 



004757 
105014 
004757 
105006 
05270C 
001405 
052"*C 
OOl^wf 
000241 
000401 
000261 
000207 



012757 
012757 
005005 
000241 
005711 

020102 
001407 
062701 
000772 

005105 
012716 
000002 

012700 
104456 
005705 
001401 
000261 
000207 



RO CONTENTS OF TSSR 

CARR- SET OKAY 

CLR - NOT READY AMBIGUOUS . OR SC SET 



016140' 
015754- 
lOOOOO 
07* y> 



CHKTSSR: 



101: 

151: 
201: 



JSR 

BCC 

JSR 

BCC 

BIT 

BEQ 

BIT 

BEQ 

CLC 

BR 

SEC 

RTS 



.SBTTL XNXn 



PC.UAITF 


lUAIT FOR READY 


20 1 


1 BRANCH IF TIHE OUT 


PC.CHKAHB 


iTSSR AMBIG0US7 


101 


iBR IF YES 


•SC.RO 


{SPECIAL CONDITION SET? 


15» 


iBR IF NO 


•«SCE!BIE!RnRiNXH>.RO 


lANV ERROR BITS SET? 


15t 


iBR IF NO 




iSET FAILURE 


201 






IsET SUCCESS 


PC 


•RETURN TO CALLER 



CHECK FOR NONEXISTENT HEMORV 



016522' 000004 
000200 000006 



ROUTINE TO TEST FOR A NEXM IN THE RANGE (Rl) THRU (R2). 
ON RETURN. IF "C - 1. (Rl) - NEXH ADDRESS. 

"C - 0. ALL ADDRESSES OK. 



CALL: 



XNXN: 



K.- 



NOV AORl.Rl 
NOV A0R2.R2 
JSR PC.NXn 
RETURN 



000002 

016552* 
000004 



2f: 
5t: 



NOV 
NOV 
CLR 

ac 

TST 

CHP 
BEQ 
ADD 
BR 

con 

NOV 

RTI 

CLRVEC 

MOV 

TRAP 

TST 

BEQ 

SEC 

RTS 



•21. M4 
«PRI04.8«6 

R5 

(Rl) 

R1.R2 
51 

•2.R1 
1< 

R5 

•51. (SP) 



•4.R0 

CICVEC 
R5 
• •4 

PC 



I TEST -C" AND PROCEED. 

I SET BUSERR VECTOR. 



I FLAG. 

I CLEAR THE CARRY FOR NO NXM FOUND 

I TEST THE ADORESS(ES). 

I IF ANY TRAP. CONTINUE AT 2<. 

I OTHERWISE . CONTINUE HERE. 

iBR IF FINISHED (NO NEXMS). 

I SET NEXT ADDRESS... 

I... AND CONTINUE. 

iGOT ONE. SET FLAG... 

I . . .AND DISMISS INTERRUPT . . . 
t...AND GIVE BACK THE VECTOR. 



iDID UE CATCH ONE 7? 

iNO. "C" ■ 0. SKIP NEXT. 

I YES. "C" ■ 1. (Rl) • NEXM AOOR. 



.SBTTL TSTLOOP CHECK ITERATION COUNT 



C6 



TSV5 GLOBAL AREAS 



TSTLOOP 


CHECK 


ITERATION COUNT 


2293 








2294 








2295 
















2297 








2299 








2299 








2300 


016350 






2301 


016350 


005737 


002162' 


2302 


016354 


001006 




2303 


016356 


005737 


002176' 


2304 


016362 


100403 




230S 


016364 


005337 


002210 


2306 


016370 


001002 




2307 


016372 


000241 




2308 


016374 


000401 




2309 


016376 


000261 




2310 


016400 


000207 




2311 








2312 








2313 








2314 








2315 








2316 








2317 








2318 








2319 








2S20 








2321 








2522 








2323 








2324 








2325 








2326 








2327 








2328 








2329 








2330 








2331 








2332 








2333 








2334 








2335 








2336 








2337 








2338 


016402 






2339 


016402 


010046 




2340 


016404 


005037 


003146' 


2341 


016410 


005037 


016650' 


2342 


016414 


QQOQS 7 




2343 


016420 


105037 


016034* 


2344 


016424 


013700 


002174' 


2345 


016430 


006300 




2346 


016432 


005737 


003106' 


2347 


016436 


001430 




2348 


016440 


100010 




2349 


016442 


052760 


160000 
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SEQ 067 



I SUBROUTINE TO EXECUTE TEST ITERATIONS. 

I EXIT WITH C" SET IF LOOPS ALt OUED AND LOOP COUNT N0N-2ER0. 
I LOOP COUNTER IS SET BY "BEGIN. TEST" MACRO. 

CALL: LOOP TO ARC 



I 

TSTLOOP: : 

TST 
BNE 
TST 

Bni 

DEC 
BNE 
CLC 
BR 
SEC 
RT3 



21: 
31: 



.SBTTL 



NOITS 
II 
QVP 
It 

LOOPCNT 
2« 

3« 

PC 

TSTSETUP 



I ITERATIONS IIMIBITED? 
I YES. 
I NO. 

iLOOPS DISALLOyED IN QUICK PASS. 
I BUMP LOOP COUNTER. 

iLOOP OISALLOUEO. OR DONE. 

I LOOP ENABLED. 

PRINT TEST NAME AND INIT ERROR COUNTS 



PRINT THE NUMBER AND MAME OF EACH TEST AS UE GO ALONG. 
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
II»UT: 

RO POINTER TO TEST ID ASCIZ STRING 

OUTPUT: 

R5 ADDRESS OF FIRST DEVICE REGISTER 

ir^ICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



TSTSETUP:: 
MOV 
CLR 
CLR 
CLR 
CLRB 
MOV 
ASL 
TST 
BEQ 
BPL 
BIS 



RO, (SP) 

SIFLAG 

ERRK 

EXTA 

INTMASK 

UNITN.RO 

RO 

NOOEV 
41 
3* 



SAVE THE TEST ID MtSSAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG. 
CLEAR INTERRUPT MASK i CHECK ERROR) 
GET THE UNIT NUMBER. 
... AND HAKE IT A UORD OFFSET. 
DID STARTUP FIND THE DEVICE? 
BR IF YES 
BR IF NOT IDLE 



«160000.ERTABLCR0) t FLAG ERROR IN THE ERROR TABLE 



D6 
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TSTSETUP PRINT TEST NAME AND INIT ERROR COUNTS 



2350 


016450 








ERRDF 


l.NXR.NXRERR 


i NO DEVICE HERE • PRINT IT 




016450 


104455 






TRAP 


CIEROF 






016452 


000001 






.UORD 


1 






016454 


005750* 






.WORD 


NXR 






016456 


005544' 






.WORD 


NXRERR 




2551 


016460 


000407 






BR 


21 




2552 


016462 


052760 


160001 


003170' 5t: 


BIS 


•160001. ERTABL(RO) i FLAG ERROR IN THE ERROR TABLE 


2555 


016470 








ERROF 


2.N0INIT 


1 DEVICE NOT IDLE 




016470 


104455 






TRAP 


CIEROF 






016472 


000002 






.WORD 


2 






016474 


004325' 






.UORO 


NOINIT 






016476 


000000 






.WORD 


0 




2554 


016500 


012757 


177777 


005104' 2<: 


MOV 


#-l.DUFLG 


1 DROP THE UNIT 


2555 


016506 








ooou 


UNITN 






016506 


015700 


002174* 




nov 


UNITN.RO 






016512 


104451 






TRAP 


ctooou 




2556 


016514 








OOCLN 




t ABORT THE PASS 




016514 


104444 






TRAP 


CtOCLN 




2557 


016516 


000423 






BR 


5* 




2556 
















2359 


016S20 






4t: 


RFLAGS 


RO 


t GET THE OPERATOR FLAGS. 




016520 


104421 






TRAP 


CIRFLA 


2360 


016522 


032700 


001000 




BIT 


•PNT.RO 


1 PRINT THE TEST NUMBERS? 


2361 


0I6S26 


001412 






BEQ 


11 


i BR IF NO 


2562 


016530 


011600 






NOV 


(SP).RO 


iGET THE ID NESSAGE 


2363 


016532 








PRINTF 


#TNAN.RO 


iDISPLAY THE TkST ID 




016532 


010046 






nov 


RO. -(SP) 






016534 


012746 


016576' 




NOV 


•TNAN.-(SP) 






016540 


012746 


000002 




NOV 


•2.-(SP) 






016544 


010600 






NOV 


SP.RO 






016546 


104417 






TRAP 


CIPNTF 






0165S0 


062706 


000006 




AOO 


•6.SP 




2564 


016554 


005237 


002206' 


It: 


INC 


7STCNT 


1 BUNP TEST COUNTER. 


2565 


016560 








SETPRI 


IPRI 


iPRIORITY THAT OF DEVICE 




016560 


015700 


002204' 




NOV 


IPRI.RO 






016564 


104441 






TRAP 


OSPRI 




2566 


016566 


005726 




51: 


TST 


(SP)» 


(FIX UP THE STACK 


2567 


016570 


015705 


002200' 




NOV 


CSRA00R.R5 


1 ADDRESS OF TSV REGISTERS ON UNIBUS 


2568 


016574 


000207 






RTS 


PC 




2569 


016576 


045 


123 


045 TNAH: 


.ASCIZ 


'tfSKTKA T«st 




2570 










.EVEN 






2571 














2572 










.S8TTL 


TSTEND - PRINT ERRORS RECEIVED 


2573 








i 








2574 








» AT 


END OF EACH TEST. PRINT 


THE NUMBER OF ERRORS RECEIVED 


2575 








1 IF 


NORMAL ERROR REPORTING 


IS DISABLED (FLA:IER). 


2576 








t 








2377 


016612 






TSTEND: RfLAGS 


RO 






016612 


104421 






TRAP 


CtRFLA 




2578 


016614 


030027 


020000 




BIT 


RO.«IER 




2579 


016620 


001412 






BEQ 


1* 


t BR IF "lER" NOT SET. 


2580 


016622 








PRINTF 


#ESUM.ERR'< 


1 PRINT ERROR COUNT. 




016622 


013746 


016650' 




NOV 


ERRK.-(SP) 






016626 


012746 


016652' 




NOV 


•ESUN. -(SP) 






016632 


012746 


000002 




NOV 


♦2.-(SP) 






016636 


010600 






NOV 


SP.RO 






016640 


104417 






TRAP 


C»PNTF 





E6 
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TEND 


rlf INT 


ERRORS RECEIVED 














01oo42 


062706 


000006 








♦6.SP 




2301 


Oxoo4o 


000207 






1* : 


DTC 


PC 
























0X0030 


000000 












LOCAL ERROR COUNT. 




01003<f 


045 


101 




ESUM: 


.ASCIZ 


/«A ^A ERRORS/' 




9 SAC 


O.DO/I 


105 


122 




EhAXOU: 


.ASCIZ 


/ER^tOR LIMIT REACHED DROPPING UNIT/ 


^ %mg. 












.EVEN 






C >0 ' 


















cAOO 












.SBTTL 


INCERK • INCREMENT LOCAL ERROR COUNT 












1 ♦ 


















1 ROUTINES TO INCREMENT LOCAL ERi«OR COUNT AND CHECK FOR LIMIT: 












1 " 










Al A7*£ 

UXO ' 30 


005237 


016650' 




TMTFQK • 
X>^lwCnV\ : 


Xf^U 


FORK 1 


TMTPFMFMT 1 IVAl FRPflP TAIMT 




Al d^TM^ 
OxO f 


010046 








■ IV w 


RO - f CP > t 


CAVF PA 




A1 il7AA 


013700 


002174* 






nv" 




RFT IMTT MtW^P 
ISC 1 V^X 1 WJw~ • 




A1 ^7CA 
UXO fJV 


006300 










PA • 

WV 1 


AMft HAKF TT A UflPn nFFCFT 




A 1 & 7^3 
UXO '3c 


062700 


003170' 






Ann 


4FRTARI PA t 


PA RFTC AAHPFCC AT FPPAP TAAI F FMTPV 




UIO r90 


005210 








X>^ 


\ MV J 1 


TMTPFMFMT TMF AFWTrF FPPAP mMT 




A| <L7JLA 

UXO fOU 


032710 


007777 






BTT 
DX 1 


47777 fPA^ • 


ATA UF nvFRTl OU TMF FTFI 




UXO rO^ 


001001 










1 t 

X * 1 


RP TF Mfl 

D" Xr I^V • 


e#W 


UIO'OO 


005310 










fRA ^ t 


VFC RACK TT 10 TO 7777 
V C9 Dnvv X ■ V^ ■ V f f # f • 




V/XO r f w 


012600 






1 t • 
X* . 




t CD ^ * PA 1 
\ J ♦ i ItV 1 


DFCTAPF RA 




rtl 4L773 
UID r rc 


000207 








PTC 
If 1 9 


1 


RFTIStM Tn fAI i FP 






















UXO f 


010046 










PA . r CP 


CAUF PA 

ffV 




UXO ' rO 


013700 


002174' 








IMTTN PA 

^«x 1 t nv 1 


HFT IMTT MIMIFR 




A1 7AA3 
UX t\JV£ 


006300 










PA 

MV f 


AMA HAKF TT A UDRn AFFCFT 




UX f UV* 


016000 


003170* 








FPTARl rPA'^ PA • 
Cn 1 nOwV nV7 #HV I 


RFT FPPDB TARl P FMTPV 




m 7m n 
UX f vxu 


042700 


170000 






DXu 


41 7AAOA PA 
vX'V^^/v«nv 1 


FXTPATT FPRAR TOIMT FTFI D 




m 7m4 

VX rUX^ 


020037 


002166' 








PA RFPPMAV • 


TC iJ nRAl 1 TMTT FVfFFDFn FAR ThTC IMTT'7 
X9 VM-v^y^ i-XflXI CAI.CCVCV r \^ inX3 V^X 1 • 




A| 7A3A 

vX f Vcv 


103004 








rmtc 
Dnxd 


1 i 

XV s 


RR TP YFC 
On xr TC19 




A1 7A33 
wX ruee 


023737 


016650' 








FPPK 1 FPPMAy 


TC 1 (V" AJ 1 TMTT FyrFFAFA FAR TMTC TFCT7 
X9 i.Xi1XI CAV.CCI/CV r Un inXw 1 w3 > • 




At 7A«A 


103417 










2) 1 


BR IF NO 


341 X 


rtl 7nX3 
UX 'UOc 








1 i • 

XV; 


DPI A/K 


RO 1 


GET OPERATOR FLAGS 




rtl 7AX3 
wX r VOc 


104421 








TRAP 


C»RFLA 




X^ 


Ai 7AX4 

WX f 


032700 


000040 






HTT 
ox 1 


•lOU.RO t 


IS DROPPING INHIBITED? 


341 S 

X^ 


ni 7n4n 

wX r V^w 


001013 








RNE 


2* i 


BR IF YES. 


341 A 


m 7A43 
WX f V^c 


012737 


177777 






NOV 


•-1.0UFLG 1 


NO -- DROP THE UNIT 


9417 

C^X w 


wX rV3V 










F.RROF 


4.EMAXDU 






Al 7/\RA 
wX r V3W 


104455 








TRAP 


CIEROF 






ni 7A^9 
UX ' V3c 


000004 








.UORO 


4 






01 7n^ 

wX f 


016671- 








.WORD 


EMAXOU 






ni 7Mii 

VX r V30 


000000 








.UORD 


0 




341 A 

xo 


VX 










DOOU 


UNITN 






Ai 7/\AA 
VX r^VV 


013700 


002174' 






MOV 


UNITN.RO 






A| 704^ 
VX r VO^ 


104451 








TRAP 


CtDOOU 




d41Q 


A| 7A#;i; 
VX r\^0 










DOCLN 








AI 7Mil 
VX r^^O 


104444 








TRAP 


ClOCLN 






01 7070 

VX f V f V 


012600 






2*: 


MOV 


(SP)».RO J 


RESTORE RO 


3491 


01 7073 
VX 'V • c 


000207 








RTS 


PC 1 


RETURN TO CALLER 


2422 


















2423 












.SBTTL 


CKDROP - CHECK IF UNIT SHOULD BE DROPPED 


2424 


















2425 










! CHECK 


IF UNIT 


SHOULD BE DROPPED 




2426 


















2427 


017074 


010046 






CKDROP: 


MOV 


RO. (SP) 




2426 


017076 










FORCERROR IS.NO^SSR 





F6 
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' ^PF" 



CKOROP 



CHECK IF UNIT SHOULD BE DROPPED 



5EQ 070 



2429 017106 






RFLAGS 


RO 




017106 


104421 




TRAP 


CIRFLA 




2450 017110 


032700 


000040 


BIT 


♦IDU.RO 




2431 017114 


001010 




BNE 


1« 




2432 017116 


011600 




MOV 


(SP).RO 




2433 017120 


012737 


1777/7 003104' 


MOV 


•-1.DUFLG 




2434 017126 






DOOU 


UNITN 




017126 


013700 


002174' 


MOV 


UNITN.RO 




017132 


104451 




TRAP 


C«00OU 




2435 017134 




OOCLN 




1 ABORT THE PASS 


017134 


104444 




TRAP 


C«DCLN 




2436 017136 


012600 


1>: 


MOV 


(SP)*,RO 




2437 017140 


000207 




RTS 


PC 




2436 












2439 






.S8TTL 


CONFIG - 


DETERMINE CONFIGURATION OF SYSTEM 



2440 
2441 
2442 

2443 017142 

2444 017142 

2445 017146 
2446 

2447 
2446 
2449 
2450 

2451 017150 

2452 017154 

2453 017156 

2454 017164 
2455 

2456 
2457 
2456 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2466 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2476 
2479 
2460 
2461 



017166 
017172 
017174 
017176 
017200 
017206 



004737 
000207 



005737 
001403 
012737 
000207 



015664* 



003124' 
000001 



177572 



005737 003124' 
001405 
000240 
000240 

012737 000000 
000207 



177572 



t SUBROUTINE - DETERMINE CONFIGURATION OF TSU05 SYSTEM. 



CONFIG: 



t 
> 

KTGN 



1»: 



JSR PC.SOFINIT 
RTS PC 

KTON.KTQFF 

ENABLE MEM MGT. 

TST KTFLG 

BEQ II 

NOV •! . SRO 

RTS PC 



.SBTTL 
SUBROUTINE - 



ENABLE/DISABLE MEMORY MANAGEMENT 



I GOT KT? 
I NO. 

I YES. ENABLE KTll. 



I SUBROUTINE - DISABLE MEM HGT. 



KTOFF; 



1$: 



TST 
BEQ 
NOP 
NOP 
MOV 
RTS 



KTFLG 
1* 



I GOT KTll? 
I NO. 



•O.SRO 
PC 



I DISABLE KT. 
.SBTTL SETHAP - SETUP PAR6 MAPPING 



»♦ 

!thIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
tAN 22 BIT ADDRESS. THE OFFSET INTO THE PAGE 
lis RETURNED BIASED TO PAR6. 

! INPUTS: 
I 

t RO 
i Rl 

I OUTPUTS; 



HIGH ORDER ADDRESS BITS 
LOU OROEi^ ADDRESS BITS 



G6 



TSV5 GLOBAL AREAS MACRO M1113 

SETMAP SETUP PAR6 HAPPING 



2482 








C ~ V J 
















t ^ o 


















Ol 7P1 O 

w X f C X V 








Ol 7210 






P4AQ 

t ~ o ^ 


Ol 7214 


005757 


005124' 




Ol 7220 


W 






Ol 7^P? 










OOOO06 




2495 








P494 


















017254 


042701 


000177 


2497 


017260 


020157 


005124' 


2490 


017264 


105011 




2499 


017266 


010157 


172354 




017272 


042702 


160000 




017276 


062702 


140000 


2502 


017502 


010200 






017504 


000261 




2504 


017S06 


000401 




2SOS 


017S10 


000241 




2506 


017S12 

V& ■ WAS 


000207 




2507 








250A 








2S09 








25 lO 








2511 








2512 








2513 








2514 








2515 








2516 








2517 








2518 








2519 








2520 








2521 








2522 








2525 








2524 


017314 






2525 


017514 






2526 


017320 


004737 


017166' 


2527 


017324 


010003 




2528 


017326 


015701 


005116' 


2529 


017332 


015702 


005120' 


25S0 


017356 


010521 




2531 


017340 


005302 




2332 


017342 


005575 




2533 


017344 


005757 


005124* 


2554 


017550 


001502 




2535 


0x7552 


004757 


017150' 


2556 


017556 


005000 




2557 


017560 


015701 


005144' 


2558 




000006 





01 FEB 84 18:55 



NO 

CARRY 



SEQ 071 



OFFSET INTO BLOCK WITH PARC BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 



SETMAP: 



101: 
15»: 



SAVREG 

TST 

BED 

»10V 

.REPT 

ASR 

ROR 

.ENOR 

BIG 

CMP 

BHIS 

MOV 

BIC 

ADD 

MOV 

SEC 

BR 

CLC 

RTS 



KTFLG 
101 
R1.R2 
6 

RO 
Rl 

♦177. Rl 
Rl, KTFLG 
101 

R1.8«KIPAR6 
«160000.R2 
•140000. R2 
R2.R0 

15$ 

PC 



I SAVE R1-R4 UNTIL NEXT RETURN 
J SYSTEM HAVE ABOVE ?8K? 
iBR IF NO 

tSAVE LOU ORDER BITS 

{CONVERT WORD ADDRESS TO 52U BLOCKS 
iMAKE IT DOUBLE PRECISION 

I ALINE FOR LOWER 4K BOUNDARY 
iHIGHER THAN EXISTING MEMORY? 
I BR IF YES 

(SETUP MAPPING REGISTER PAR6 
t SETUP DISPLACEMENT IN PAGE 
I ADD IN PAR6 BIAS 
tRETURN IN RO 
I SET SUCCESS 

I SET FAILURE 
(RETURN 



.SBTTL FILLMEM - FILL MEMORY UITH BACKGROUND PATTERN 
FILL MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 

RO - BACKGROUND PATTERN 



FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
KTFLG - SET TO HIGHEST MEMORY LOCATION IF > 28K. 



OUTPUTS: 



FILLMEM: 



lot: 



NONE 




SAVREG 




JSR 


PC. K TOFF 


MOV 


R0.R5 


MOV 


FhFE.Rl 


MOV 


FRESIZ.R2 


MOV 


R3.CR1)* 


DEC 


R2 


BGT 


101 


TST 


KTFLG 


BEQ 


551 


JSR 


PC.KTON 


CLR 


RO 


MOV 


PST52W.R1 


.REPT 


6 



(SAVE R1-R5 UNTIL ^CXT RETURN 

(DISABLE KT. 

(COPY TEST PATTERN 

(GET FIRST FREE LOCATION 

(SIZE OF FREE SPACE BELOW 28K. 

(STORE A BACKGROUND WORD 

(DONE ALL MEMORY IN FREE SPACE? 

(BR IF NO 

( GOT KT? 

i NO. GET OUT. 

( YES. ENABLE KT. 

(HIGH ORDER ADDRESS START 

(GET >28K START ADDRESS CIN 52U BLOCKS) 



r6 
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FILLMEM 


FILL 


MEilQRY WITH BACKGROUND PATTERN 








2539 












CLC 




CLEAR C BTT 


2540 












ROL 


Rl 


CONVERT BLOCKS TO WORDS 


2541 












ROL 


RO 


MAKE IT DOUBLE PRECISION 


2542 












.ENOR 






2543 


017430 


004737 


017210' 






JSR 


PC.SETMAP 


1 SETUP PAR6 MAPPING REGISTER 


25«4 


017434 


010320 






301 : 


MOV 


R3,CR0)» 


(STORE TEST PATTERN IN >28K ADORES 


2545 


017436 


020027 


160000 






CMP 


RO. #160000 


lENO OF PAR6 MAPPING AREA? 


2546 


017442 


10S774 








BLO 


30 1 


iBR IF NO 


2547 


017444 


162700 


02000c 






SUB 


•20000.ro 


(BACKUP INTO PAR6 MAPPING BEGIN 


2548 


017450 


062737 


000200 


172S54 




ADD 


♦200.S#KIPAR6 


(POINT TO NEXT 4K BLOCK >28K. 


2549 


017456 


013705 


003124 ' 






MOV 


KTFLG. R5 


(GET VALUE FROM MEMORY SIZER 


2550 


017462 


042705 


170000 






BIC 


♦1 70000. R5 


(ONLY 18 BITS PASS 


2551 


017466 


023705 


172354 






CMP 


84KIPAR6.RS 


lEND OF MEMORY? 


2552 


017472 


001427 








BEO 


50t 


iBR IF YES 


2553 


017474 


005737 


003136' 






TST 


T23A 


»PROCESSOR TYPE A 


2554 


017500 


001407 








BEG 


351 


iNO KEEP GOING 


2555 


017502 


013704 


177572 






MOV 


SR0.R4 


iGET SRO CONTENTS 


2556 


017506 


042704 


177761 






BIC 


•177761 »R4 


1 CLEAR ALL BUT '>AGE NUMBER 


2557 


017512 


022704 


000016 






CMP 


♦16, R4 


iSEE IF PAGE 7 


2556 


017516 


001415 








BED 


50t 


lEXIT IF THERE 


2559 


01"^520 


005737 


003140' 




35t: 


TST 


T23B 


J PROCESSOR TYPE B 


2560 


017524 


001410 








BEQ 


45t 


(NO KEEP GOING 


2561 


017526 


023727 


172354 


007600 




CMP 


B«K IPAR6 , #7600 


tREACHED 18 BITS? 


2562 


017534 


103001 








BHIS 


40 1 


: YES 


2563 


017536 


000403 








BR 


45$ 


J NO KEEP GOING 


2564 


017540 


012737 


000020 


172516 


40$: 


MOV 


•20,SRS 


J SET MMU RELOCATION 


2565 


017546 


000137 


017434' 




45t: 


JMP 


30$ 


iKEEP GOING CN ETC. 


2566 


017552 


004737 


017166' 




501: 


JSR 


PC. K TOFF 


1 DISABLE KT 


2567 


017556 


000207 






55t: 


RTS 


PC 




2568 


















2569 












.5BTTL 


CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 


2570 










1 » 








2571 










1 COMPARE rCnORY WITH A BACKGROUr«) PATTERN 


2572 


















2573 










t INPUTS: 






2574 


















2575 












RO - BACKGROUND PATTERN 




2576 












FREE 


- FIRST LOCATION 


AVAILABLE TO DIAGNOSTIC 


2577 












KTFLG 


- SET TO HIGHEST 


MEMORY LOCATION IF > 28K. 


2578 


















2579 










1 OUTPUTS: 






2560 


















2581 












CARRY 


- SET IF NO ERROR 


2562 












CARRY 


- CLR IF ERROR 




2563 


















2564 










» IMPLICIT OUTPUTS: 




2565 


















2566 












ERRHI 


- ERROR HIGH ADDRESS 


2567 












ERRLO 


- ERROR LOW ADDRESS 


2566 












EXPO 


- EXPECTED DATA 




2569 












RECV 


- RECEIVED DATA 






















2591 


017560 








CMPf€M: 








2592 


017560 










SAVREG 




J SAVE R1-R5 UNTIL NEXT RETURN 


2593 


017564 


010003 








MOV 


R0,R3 


iCOPY TEST PATTERN 


2594 


017S66 


004737 


017166' 






JSR 


PC. K TOFF 


•DISABLE KT. 


2595 


017572 


013701 


C03116' 






MOV 


FREE.Rl 


iGET FIRST FREE LOCATION 
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CMPMEh COMPARE MEMORY TO BACKGROUND PATTERN 



2596 
2597 
2596 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2606 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2616 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2626 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2636 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2646 
2649 
2650 
2651 
2652 



017576 


013702 


00S120' 




MOV 


017602 


020311 




10> : 


CMP 


017604 


001411 






BEQ 


017606 


010137 


002232' 




MOV 


017612 


005037 


002230' 




CLR 


017616 


010337 


002224 ' 




MOV 


017622 


011137 


002226' 




MOV 


017626 


000474 






BR 


017630 


005721 




151 : 


TST 


017632 


005302 






DEC 


017634 


003362 






BGT 


017636 


AAfY V* 

005737 


AAV • ■ 

003124' 




TST 


017642 


AA« M 

001472 






BEQ 


017644 


004737 


017150' 




JSR 


01 '650 


AACAAA 

005000 






CLR 


017652 


A 4 V 

013701 


AAV 4 MM 1 

003144 ' 




MOV 




AAAAAf 

000006 






Bf BY 

.RtPT 










BBl 

ROL 










ROL 










.ENDR 


A« ?^A£ 

017706 


A^ ^ ?A 4 

042701 


AAA 4 

000177 




BIC 


017712 


A4 AAA£ 

010U46 






MOV 


017714 


A4 A 4 d f 

010146 






MOV 


017716 


AAA ^ V ^ 

004737 


A 4 4 A J 

017210' 




■^B 

JSR 


At ^n^^^ 

017722 


010004 






MOV 


017724 


012601 






MOV 


017726 


012600 






MOV 


A % VA 

017750 


A^AV 4 M 

020314 




V A A 

SO) : 


CMP 


A* "V^V^ 

017752 


AA4 il 4 « 

001411 






BEQ 


017734 


010037 


AA'^'N VA ■ 

002230' 




MOV 


A 4 A 

017740 


010137 


002232' 




MOV 


017744 


A4 A W ^ 

010337 


AA'\'\'\A » 

002224 ' 




MOV 


A 4 ^^CA 

017750 


011437 


002226' 




MOV 


O 17754 


AAA A ^^4 

000421 






BB 

BR 


A 4 ^^Cf 

017756 


062701 


000002 


32) : 


ADD 


017762 


005500 






AA#* 

ADC 


017764 


062704 


000002 




ABB 

ADO 


Ol f 770 


A^AA 

020427 


160000 




CMP 


017774 


103755 






Bl A 

BLO 


A 4 

017776 


162704 


020000 




SUB 


A'^AAA'% 

020002 


062737 


000200 


172354 


ADD 


020010 


023737 


172354 


003124' 


CMP 


020016 


101744 






BLOS 






vl r XOD 






020024 


000241 






CLC 


020026 


000403 






BR 


020030 


004737 


017166' 


55): 


JSR 


020034 


000261 






SEC 


020036 


000207 




60): 


RTS 










.SBTTL 



i ♦ 

! ROUTINE TO 

I SAVE Rl THROUG 

I CALLING SEQUEN 



16 



FRESIZ.R2 

RS.(Rl) 

15) 

Rl.ERRLO 

ERRHI 

R3.EXP0 

(RD.RECV 

SO) 

CRD* 

R2 

10) 

KTFLG 

55) 

PC.KTON 
RO 

PST32U.R1 
6 

Rl 
RO 

#177. Rl 

RO.-(SP) 

Rl.-(SP) 

PC.SETMAP 

R0.R4 

CSP)».R1 

(SP)*.RO 

R3,(R4) 

32) 

RO. ERRHI 

Rl.ERRLO 

R3.EXP0 

CR4).RECV 

SO) 

«2.R1 

RO 

*2.R4 

R4. #160000 
30) 

#20000. R4 
«2OO.0#KIPAR6 
8««IPAR6. KTFLG 
30) 

PC. K TOFF 
60) 

PC. K TOFF 
PC 



SIZE OF FREE SPACE BELOW 26K. 
FREE SPACE LOCATION EQUAL TO EXPO? 
BR IF YES 

SAVE ADDRESS IN ERROR 
NO HIGH ADDRESS 
SAVE EXPO FOR ERROR REPORT 
SAVE RECV FOR ERNOR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

N&. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN 32U BLOCK' 

CONVERT BLOCKS TO WORDS 
MAKE IT DOUBLE PRECISION 

ALINE 4K BOUNDARY 

SAVE HIGH ORDER 

SAVE LOU ORDER 

SETUP PAR6 MAPPING REGISTER 

COPY ADDRESS BIASED TO PAR6 

RESTORE LOU ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDER IN NON PAR6 FORMAT 

ABOVE 2eK LOCATION EQUAL EX^D? 

BR IF YES 

SAVE HIGH ORDER IN ERROR 
SAVE LOU ORDER IN ERROR 
SAVE EXPD FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 

UPDATE NON PAR6 ADDRESS 
MAKE IT DOUBLE PRECISION ADO 
UPDATE PAR FORMAT ADDRESS 
END OF PAR6 MAPPING AREA? 
BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >26K. 
END OF MEMORY? 
BR IF NO 

TURN OFF MEMORY MAPPING 
SET FAILURE 

TURN OF*^ MEMORY MAPPING 
SET SUCCESS 



RECSAV 



SAVE R1-R5 ON STACK 



RS ON THE STACK 



J6 



TSV3 - GLOBAL AREAS MACRO Ml 113 

HEGSAV SAVE R1-R5 ON STACK 



2655 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
26 TS 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2698 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2097 
2698 
2699 
2700 
2701 
2702 



Ol-FEB-84 18:55 



JSR 



SEQ 074 



R5.REGSAV 



iTHIS IS A COOROUTINE t4HICH TRANSFER CONTROL BACK TO 
;THE CALLING ROUTINE. AT THE END Of THE CALLING ROUTINE. 
(THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
{REGISTERS. 

IthIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES UHICH ARF 
.-CALLED VIA A JSR PC INSTRUCTION 

! 

I - 



020040 
020040 
020042 
020044 
020046 
020050 
020052 
020056 
020060 
020062 
020064 
020066 
020070 
020072 



010446 
010346 
010246 
010146 
010546 

016605 000012 

004736 

012601 

012602 

012603 

012604 

012605 

000207 



REGSAV: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



R4,-(SP) 

R3.-(SP) 

R2.-(SP) 

Rl.-(SP) 

R5.-(SP) 

10.(SP).R5 

PC.B(SP)» 

(SP)».R1 

(SP)».R2 

(SP)*.R3 

(SP)*,R4 

(SP)».R5 

PC 



.S8TTL GETPAT GET 8 BIT PATTERN FROM OPERATOR 

* 

ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
INPUTS: 

NONE. 

OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 

CALLING SEQUENCE: 

JSR PC, GETPAT 



020074 
020074 
020100 
020100 
020102 
020104 
020106 
020110 
020112 
020114 



104443 

000406 

020130' 

000022 

020132' 

000377 

000000 



GETPAT: 
1): 



SAVREG I SAVE THE GENERAL REGISTERS 

GMANID DATASC.PATOAT. 0.377. 0.377. NO 

TRAP OGMAN 

BR 10000 t 

. UORD PATDAT 

.WORD TtCOOE 

.UORD OATASC 

.WORD 377 

.WORD TtLOLIM 



K6 



TSVS GLOBAL APCAS tMCRO MlllS 01 FEB-S4 18:55 
GETPAT - GET 0 BIT PATTERN FROM OPERATOR 



SEQ 075 



020116 
020120 

2703 020120 
020120 

2704 020122 

2705 020126 
2706 

2707 
2706 
2709 
2710 

2711 020130 

2712 020132 
2713 

2714 
2715 
2716 
2717 
2716 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 



000377 



103367 

013700 020130' 
000207 



10000$: 



.WORD TIHILIM 

BNCOMPLETE If 
BCC II 
nOV PATOAT.RO 
RTS PC 



I LOCAL DATA AREA 
; - 



000000 
105 



116 



PATDAT: .UORO 
1<;4 DATASC: .ASCI2 
.EVEN 



(RETRY IF ERROR 

I DATA PATTERN FRt }PERATCR 
I RETURN TO CALLER 



I TEMPORARY STORAGE FOR DATA 



ENTER DATA PATTERN' 
SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 



I ♦ 



ROUTINE TO ISSUE A MENU AND GET 
THE OPERATOR'S RESPONSE. 



INPUTS: 



RO 
Rl 



ADDRESS OF ASCIZ bTRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



OUTPUTS: 



2726 








RO 


NUMBER OF THE 


OPERATOR'S SELECTION 


2729 














2730 














2731 














2732 


0201 *ib 




GETSEL: 








2733 


02015*. 






'SAVREG 




.SAVE GENERAL REGISTERS 


2734 


020162 


010002 




MOV 


R0.R2 


iSAVE THE MENU ADDRESS 


2735 


020164 


010203 


1^: 


MOV 


R2.R3 


J START OF MENU STRING 


2736 


020166 


005713 


2$: 


TST 


CR3> 


lEND OF ASCII ? 


2737 


020170 


001412 




BEQ 


3< 


(BRANCH IF ALL LINES DISPLAY 


2736 


020172 






PRINTF 


•SELASC. (R3)f 


(DISPLAY THE MENU 




020172 


012346 




nov 


(R3)».-(SP) 
•SELASC. -(SP) 






020174 


012746 020342' 




MOV 






020200 


012746 000002 




MOV 


♦2.-(SP) 






020204 


010600 




MOV 


SP.RO 






020206 


104417 




TRAP 


CIPNTF 






020210 


062706 000006 




ADO 


•6.SP 




2739 


020214 


000764 




BR 


2> 




2740 


020216 




31: 


GMANIO 


MENASC.MENRES.O. 1.0. -1. NO 




020216 


104443 




TRAP 


CIGMAN 






020220 


000406 




BR 


10001$ 






020222 


020376* 




.UORO 


MENRES 






020224 


000042 




.UORO 


T$C00E 






020226 


020347' 




.UORO 


MENASC 






020230 


177777 




.UORO 


-1 






020232 


000000 




.UORO 


TILOLIM 






020234 


177777 




.UORO 


T$HILIM 






020236 




lOOOll: 








2741 


020236 






BNCOMPLETE 1» 


(RETRY IF ERROR 



■^SVS GLOBAL AREAS MACRO Mil 13 



GCTSEL 



ISSUE MENU AND GET OPERATOR 



6 



SEQ 076 















acc 

O w w 


I % 






020240 


01S700 


020376' 






MOV 


MENRES.RO 


iGET THE OPERATOR'S REPLY 


2743 


020244 


02000) 








CMP 


RO.Rl 


(COMPARE TO MAXIMUM ALLOWED 


P744 




101411 








BLOS 


5$ 


1 BRANCH IF OK 














PRINTF 


4MENERR 


t DISPLAY ERROR MESSAGE 








020274' 






MOV 


#MENERR. -CSP) 










WWW A 






MOV 


♦1 . ( SP ) 






vc w 


010600 








MOV 


SP.RO 






02026? 


104417 








TRAP 


CIPNTF 






020264 


062706 


000004 






ADO 


#4.SP 




2746 


020270 


000755 








BR 


1» 


, RETRY 


2747 


020272 


000207 






It: 


RTS 


PC 


iRETURN TO CALLER 


2748 


020274 


045 


116 


045 


MENERR: 


.ASCIZ 


'«NriA *** M«nu 


Selection Too Large 


2749 


020542 


045 


116 


045 


SELASC: 


.ASCIZ 




2750 


020S47 


105 


156 


164 


MENASC: 


.ASCIZ 


•Ent«r M«nu Selection: 


2751 












.EVEN 






2752 


020376 


000000 






MEMOES: 




.WORD 0 





2753 
2754 
2755 
2756 
2757 
275a 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2760 
2769 
2770 
2771 
2772 
2773 
2774 
2775 



2776 


020400 




2777 


020400 




2778 


020404 






020404 


104450 


2779 


020406 






020406 


103411 


2780 


020410 






020410 


012746 




020414 


012746 




020420 


010600 




020422 


104417 




020424 


062706 


2761 


020430 


000241 


2782 


020432 


000207 


2783 






2784 


020434 


045 


2785 







.SBTTL CHKMAN 



CHECK MANUAL INTERVENTION LEGALITY 



ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
I^*»UT: 



NONE. 



OUTPUT: 



CARRY 



SIDE EFFECTS: 



0 MANUAL INTERVENTION NOT ALLOWED 

1 MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED. 



CHKMAN: 



SAVREG 
MANUAL 

TRAP CtMANI 
BCOMPLETE 1« 



116 



045 



It: 

NOMAN: 



BCS 
PRINTF 
MOV 
MOV 
MOV 
TRAP 
ADO 
CLC 
RTS 

.ASCIZ 
.even 



It 

«NOnAN 

«NOHAN.-(SP) 

♦l.-(SP) 

SP.RO 

CtPNTF 

•4.SP 

PC 



tSAVE THE REGISTERS 

tSEE IF MANUAL INTERVENTION OK 

; BRANCH IF ALLOWED 

(PRINT THE WARNING MESSAGE 



(CLEAR CARRY FOR ERROR 
I RETURN 



'«NKA Manual Intervention not AlloMed - Test Aborted *** 



Mb 
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CMKMAN CHECK MANUAL INTERVENTION LEGAl ITY 



SEQ 077 



2786 




















2787 














.SBTTL 


ENVIRN - SETUP 


FREE DIAGNOSTIC SPACE 


2788 




















2789 












SUBROUTINE TO 


SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


2790 




















2791 


020530 








ENVIRN: 


MEMORY 


RO 






020530 


104431 










TRAP 


CIMEM 




2792 


020532 


010037 


003116' 








MOV 


RO.FREE 


I GET 1ST FREE A00RF5S... 


2793 


020536 


062737 


000002 


003116' 






ADD 


«2.FREE 




2794 


020544 


011037 


003120' 








MOV 


(RO).FRESIZ 


s ... AND WORD COUNT . 


2795 


020550 


162737 


000004 


003120' 






SUB 


M.FRESIZ 




2796 


020556 


013702 


002012' 








MOV 


LtUNIT.R2 


t GET NUMBER OF UNITS 


2797 


020562 


162737 


000007 


003120' 


10»: 


SUB 


♦7,FRESIZ 


i TAKE AWAY 7 WORDS PER UNIT 


2798 


020570 


005302 










DEC 


R2 




2799 


020572 


001373 










BNE 


10 » 




2800 


020574 


013700 


003116' 








MOV 


FREE.RO 


tGET FIRST FREE ADDRESS 


2801 


020600 


063700 


003120' 








ADO 


FRESIZ.RO 


t POINT TO LAST FREE ADDRESS 


2802 


020604 


162700 


000002 








SUB 


•2.R0 


(BACKUP 1 WORD 


2803 


020610 


010037 


003122' 








MOV 


RO.FREEHI 


1 STORE LAST FREE ADDRESS 


2804 


020614 


000207 






40t: 


RTS 


PC 


t RETURN 


2805 




















2806 














.SBTTL 


KTINIT - SETUP 


KTll MEMORY MANAGEMENT REGISTERS 


2807 




















2808 




















2809 












sROUTINE TO INIT KT-ll 




2810 




















2811 










i - 








2812 




















2813 


020616 








KTINIT: 








2814 


020616 


005037 


003124' 








CLR 


KTFLG 


: INIT >26K MEMUR. TLAb 


2815 


020622 


005037 


003126' 








CLR 


K TENABLE 


t INIT TEST >28K FLAG 


2816 


020626 


023727 


002120' 


001577 






CMP 


L$HIME.#1577 


t GOT ENOUGH MEMORY (>28K)? 


2817 


020634 


101453 










BLOS 


9< 


i NO. 


2818 


020636 


023727 


002120' 


001777 






CMP 


LIHIME.n777 


{ GOT ENOUGH MEMORY (>32K)? 


2819 


020644 


101447 










BLOS 


9t 


} NO. 


2820 


020646 


013700 


000004 








MOV 


8«ERRVEC.R0 


i SAVE OLD ERR VEC PTR. 


2821 


020652 


012737 


020744' 


000004 






MOV 


«2».8«ERRVEC 


J SET ERR VEC PTR. 


2822 


020660 


005737 


177572 








TST 


0#SRO 


1 GOT KTll? 


2823 


020664 


000240 










NOP 




I (TRAP IF NO). 


2824 


020666 


013737 


002120' 


003124' 






MOV 


LIMIME. KTFLG 


: YES. SET Kt FLAG. 


2825 


020674 


042737 


000177 


003124' 






BIC 


#177. KTFLG 




2826 


020702 


010037 


000004 








MOV 


R0.8«ERRVEC 


1 RESTORE OLD ERR VEC PTR. 


2827 


020706 


OOSOOO 










CLR 


RO 


{ RO • AR DATA. 


2828 


020710 


012701 


172340 








MOV 


«KIPAR0.R1 


1 Rl « KI REGS PTR. 


2829 


020714 


012761 


077406 


177740 


It: 


MOV 


«77406.-40CRl) 


« SET DESCRIPTOR REG. 


2830 


020722 


010021 










MOV 


RO.(Rl)* 


1 SET KIPAR REG. 


2831 


020724 


062700 


000200 








ADO 


«200.R0 


1 BUMP AR DATA BY "4K". 


2832 


020730 


020027 


002000 








CMP 


R0.«2000 


I AT "I/O"? 


2833 


020734 


001367 










BNE 


It 


i NO. 


2834 


020736 


012741 


177600 








MOV 


♦177600. -(Rl) 


J YES. SET KTPAR7 FQR I/Q. 


2835 


020742 


000410 










BR 


9t 




2836 




















2837 


020744 


012716 


020760' 




2t: 


MOV 


«6t.(SP) 


J SET UP RETURN 


2838 


020750 


000002 










RTl 




1 RTI TO NEXT LOCATION 


2839 




















2840 




















2841 


020752 


012716 


021006' 




3t: 


MOV 


•lOt.(SP) 


i SET UP RETURN 



N6 



rsv3 

KTINIT 

2843 
2944 
2045 
2646 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2660 
2661 
2662 
2863 
2864 
2665 
2866 
2667 
2668 
2669 
2670 
2871 
2672 
2673 
2874 
2675 
2676 
2877 
2676 
2679 
2660 
2661 
2662 
2664 
2666 
2887 
2666 
2889 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2696 
2699 
2900 



GLOBAL AREAS 

SETUP KTH MEHOR 



MACRO «U15 Ql-FEB-84 18:55 
ORY MANAGEMENT REGISTERS 



SEQ 078 



020756 000002 

020760 010037 000004 



020764 
020764 
020770 
020776 
021004 
021006 
021012 



021014 

021014 
021020 
021022 
021030 
021036 
021044 
021052 
021056 
021062 



021064 

021070 
021072 
021074 
021076 



021100 
021102 
021104 



013700 000004 

012737 020752' 000004 

042737 000001 170200 
000240 

010037 000004 
000207 



6»: 
9»; 

10$: 



RTI 
MOV 



MOV 
MOV 

eic 

NOP 
MOV 
RTS 



RO.S«ERRVEC 



S«ERRVEC.RO 

«3$.S«ERRVEC 

«BITO,S«mRO 

R0.84ERRVEC 
PC 



J RTI TO NEXT LOCATION 

t RESTORE OLD ERR VEC PTR. 



» SAVE OLD ERR VEC PTR. 

t SET ERR VEC PTR. 

I BE SURE UNIBUS MAP IS OFF 



RESET VECTOR BACK TO ERROR POINTER 



005737 
001020 
012737 
012737 
012737 
012737 
012704 
004737 
000207 



000000 
000000 
000000 
000000 



000000 
000000 
000000 



SUBROUTINE SET EXTENDED FEATURES SWITCH 

Requires that SOFINIT and URTCHR have been done previous to call. 



CURRENT UNIT NUMBER 



I 

I INPUTS: 
I R5 
J OUTPUTS: 

: The Extended Features Switch is set. 



t - 



INVERT:: 



002220' 

100206 021070' 
021100' 021072' 
000006 021076' 
100010 021100' 
021070' 
010552' 



1«: 



CMDPKT: 



TST EXTFEA 

BNE II 

nOV *100206.CMOPKT 

MOV MSHBK. CMDPKT »2 
MOV CMDPKT *6 

MOV *100010.USMBK 

MOV «CMDPKT.R4 

JSR PC. URTCHR 

RTS PC 



COMMAND PACKET. 

.BLKB 10-<.-TSV267> 

0 
0 
0 
0 



i IS SWITCH SET? 

: YES. EXIT STAGE RIGHT'Cor the next one outa tOMn!) 
: URT SUB -SYS MEM CMO 
t MSG BUF ADDR 
; BYTE COUNT 

INVERT THE SWITCH 
SET CMDPKT INTO R4 
DO IT 
RETURN 



:1ST WORD IS TS05 COMMAND. 

:2ND WORD IS THE BUFFER LOU ADDRESS. 

1 3RD WORD IS THE BUFFER HIGH ADDRESS. 

:4TH WORD IS THE BYTE/RECORD/FILE COUNT. 



URITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 



USMBK: 



0 
0 
0 



1ST WORD 
2N0 UORD 
3RD UORD 



SEL 0 
SEL 2 
SEL 4 



.EVEN 



B7 
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KTINIT SETVP KTll MEMORY MANAGEMENT REGISTERS 



SEO 079 



2901 
2902 
2905 
2904 
2905 
2906 
2907 
2906 
2909 
2910 
2911 
2912 
2915 
2914 
2915 
2916 
2917 
2916 
2919 
2920 
2921 
2922 
2925 
2924 
2925 
2926 
2927 
2926 
2929 
2950 
2951 
2952 
2955 
2954 
2955 
2956 
2957 
2958 
2959 
2940 
2941 
2942 



2945 
2944 

2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 



021106 



SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 



INPUTS: 
OUTPUTS: 



Th« NXMFLG !• Mt ! f m« can t««t . 
Th« NXMLO and NXMHI addravMs mrt 



MEMCK: 



021106 










SAVREG 




ISAVE THE REGISTERS 


021112 


005057 


005150' 






CLR 


NXMFLG 


1 CLEAR THE FLAG 


021116 


005057 


005152' 






CLR 


NXMLO 


iCLEAR THE TEST AOORESS LO 


021122 


005057 


00S154' 






CLR 


NXMHI 


1 Clear the test address hi 


021126 


052757 


170000 


002120' 




BIT 


•170000, LIHIME 


1 CHECK FOR MORE THAN 18 BITS INDICATED 
















iFROM THE SUPERVISOR 


021154 


001050 








BNE 


141 


iBR. IF MAP BOX ETC. 


021156 


005757 


005140' 






TST 


T25B 


jIS IT A PROCESSOR TYPE B? 


021142 


001407 








BEQ 


1< 


iNO 


021144 


025727 


002120' 


007777 




CMP 


HMIME,#7777 


1 GREATER THAN 126K 


021152 


103406 








BLO 


21 


1 NO 


021154 


004757 


021502' 






JSR 


PC.NXMTST 


(SETUP THE AOORESS 


021160 


000427 








BR 


15t 


iSET THE FLAG AND EXIT 


021162 


005757 


005156' 




11: 


TST 


T25A 


lis IT A PROCESSOR TtPE A? 


021166 


001415 








BEQ 


41 


iNO 


021170 


025727 


002120' 


0057 77 


2t: 


CMP 


L»HIME,»5777 


(GREATER THAN 96K 


021176 


101027 








BHI 


141 


tYES.25A/256 WITH 12eK MEMORY 


021200 


025727 


002120' 


005777 




CMP 


LIHIME, #5777 


(GREATER THAN 64K BUT LESS THAN 92K? 


021206 


105405 








BLO 


41 


iNO. CHECK 24K 


021210 


004757 


021502' 






JSR 


PC.NXMTST 


(SETUP THE ADDRESS 


021214 


000411 








BR 


151 


(SET THE FLAG AND EXIT 


021216 


025727 


002120' 


001577 


41: 


CMP 


LIMINE, #1577 


(GREATER THAN 24K BUT LESS THAN 64K? 












BLO 


141 


(NU. IC.LL Trftn AND cXXT UITH FLAG CLEAR 


021226 


004757 


021502' 






JSR 


PC.NXMTST 


(SETUP THE ADDRESS 


021252 


062757 


000077 


005154* 




AOO 


♦7 7, NXMHI 


(FOOL THE 11/02 f. 11/05 


021240 


052757 


177774 


003154' 


15t: 


BIT 


♦177 774. NXMHI 


(ANY MORE THAN 16 BITS SET? 


021246 


001014 








BNE 


151 


(BR. IF MORE THAN 16 BITS SET 


021250 


005257 


003150' 






INC 


NXMFLG 


(SET THE FLAG 


021254 


000411 








BR 


151 


(EXIT 


021256 


000410 






141: 


BR 


151 


(NOP FOR PRINTOUT 


021260 










PRINTF 


•NOMEM 


(TELL THEM fi EXIT **«N0 PRINT***** 


021260 


012746 


005450' 






MOV 


•NOMEM.-CSP) 




021264 


012746 


000001 






MOV 


•l.-(SP) 




021270 


010600 








MOV 


SP.RO 




021272 


104417 








TRAP 


CIPNTF 




021274 


062706 


000004 






ADO 


♦4.SP 




021500 


000207 






151: 


RTS 


PC 


(RETURN 










1 * 


SUBROUTINE TO SETUP THE 


NXM ADDRESS FOR TESTING 



OUTPU T S : NXMLO , NXMHI 



(SETUP WITH NXM ADDRESS 



TSV3 GLOeiM. AREAS MACRO MlllS Ol-FEB-e4 18:55 
KTINXT - SETUP KTll MEMORY MANAGEMENT RECISTERS 



021502 


015701 


002120' 


NXMTST; MO^ 


2954 021506 


062701 


000200 


ADO 


2955 021512 


042701 


000177 


BIC 


2956 021516 


010102 




MOV 


2957 


000006 




.REPT 


2956 






ASL 


2959 






.ENDR 


2960 021554 


010157 


005152' 


MOV 


2961 


000012 




,REPT 


2962 






ASR 


2963 






.ENDR 


c'#64 O«13o4 




III l\JO 




2965 021570 


010257 


005154* 


MOV 


2966 021574 


000207 




RTS 


2967 








2966 








2969 








2970 








2971 021576 






ENOMOD 



r / 



SEO 060 



LIHIME.RI 

♦200.R1 

♦177. Rl 

R1.R2 

6 

Rl 

Rl.NXMLO 

10. 

R2 

♦177700, R2 

R2.NXMHI 

PC 



iCET TOP OF MEMORY 

iMAKE IT I/O BLOCK OR OTHER NXM 

iRESAVE RESULTS 

I PUT IN PLACE FOR XFER 

I SAVE TEST ADDRESS LOU 

I PUT IN PLACE FOR XFER 

I DON'T WANT ILA! 

I SAVE TEST ADDRESS HIGH 

{RETURN 



Di 



SEQ oai 



6 
7 

8 021376 
021376 

9 
IS 
16 

17 021S76 
021376 

18 021376 

19 021406 
20 

21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 

34 021406 
021406 

35 021406 

36 021412 

37 021416 

38 021424 

39 021430 

40 021434 

41 021440 
021440 
021444 

42 021446 
021446 

43 021450 

44 021456 

45 021460 

46 021464 

47 021466 

48 021472 

49 021474 

50 021500 

51 021502 

52 021510 

53 021512 
021512 
021514 

54 021516 
021516 
021522 

55 021524 
021524 

56 021526 



TSV4: 



.TITLE TSV4 - MISCELLANEOUS SECTIONS 
BGNMOD TSV4 



.SBTTL PROTECTION TABLE 
BGNPROT 

L»PROT: : 

177777 177777 17777'» .yQKD -1, -1. -1. -1 

ENOPROT 

.SBTTL INITIALIZE SECTION 

I •♦ 



(NO DEVICE PROTECTION REQUIRED. 



005037 
005037 
012737 
005037 
005037 
005037 

012700 
104447 

103023 
023737 
103070 
005737 
100472 
013701 
006301 
005761 
001516 
032761 
001060 

104432 
000416 

012700 
104447 

103052 



I THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERrORHED 
I AT THE BEGINNING OF EACH PASS. 



I IF "START" OR 
jIF -CONTINUE", 
I 

I - - 

! INSERT TEMPORARY JUMP TO OOT 

I - 



"RESTART". SET QUICK-PASS FLAG AND BUS-INIT. 
NOTHING IS REQUIRED. 



002220' 
003130' 
006166' 
003146' 
003126' 
002274' 

000036 



002174' 
003104' 
002174' 
003170' 
040000 



000035 



LIINIT:: 
401: 



002172' 



BGNINIT 
CLR 

aR 

cLR 
CLR 
CLR 
REAOEF 

nov 

TRAP 



EXTFEA 
NXHFLG 

4EPRT1.EPRTSU 

SIFLAG 

KTENABLE 

RAnSIZ 

«EF. CONTINUE 

4EF.CaNTINUE.R0 

CIREFG 



002012' 



003170' 



BNCOHPLETE II 

BCC It 

CMP UNITN.L$UNIT 

BHIS 4$ 

TST OUFLG 

9MI NXTU 

NOV UNITN.Rl 

ASL Rl 

TST ERTABLCRl) 

RCa SETU 

t9IT «eiT14.ERTABLCRl) 

ENE NXTU 

EXIT INIT 

TRAP CIEXIT 

.WORD L10030-. 

II; REAOEF «EF.NEU 

HOV ♦EF.NEU.RO 

TRAP CIREFG 
BNCOHPLETE NXTU 

BCC NXTU 

REAOEF •EF. START 



t SET UP PRIMARY MESSAGE FOR REPLACEMENT 

jCLEAR "SOFT INIT" FLAG 

I CLEAR TEST ABOVE 28K FLAG 

I CLEAR RAM SIZE FOR RAMERR ROUTINE 



tUNIT IN RANGE? 
iBR IF NO. 
I DROPPED UNIT? 
I BR IF YES 



I DROPPED? 

tOO NOTHING If 



"CONTINlC". 



I TAKE NEXT UNIT IF NOT NEU PASS. 



E7 



TSV4 MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



riACRO Nil 13 01 -FEB -64 16:55 



SEQ 062 





Uel9c6 


Al 0 7AA 
012 'OV 


AAAAAA 






MOV 


#EF. START. RO 








1 Ad 

I044* f 








TRAP 


CIREFG 




5' 












BCOMPLETE 2t 






A^l 

021334 


1054O4 








BCS 


21 




mm 


A^l 










REAOEF 


•EF. RESTART 






A^l W& 


At 07/^ft 

012 fOO 


AAAAV 7 






MOV 


♦EF, REST ART, RO 






A^l 










TRAP 


CIREFG 




CO 


A^« 

021544 










BNCOMPLETE 311 






A01 


103031 








Off* 
DLL 


XI • 
3X* 




oO 


A^l 








34 • 






. 1 CT DACC Dl IG TkiTT 


Dl 


AO 4 KAK. 










DNC 3C 1 




• Bl IC DC CC T 




021546 


m*^33 








TOAD 


U *nC3C 1 




62 


021550 


AACAT7 
UU3V3 ' 


ftft33ft4« • 






n P 


TCTPNT 

1 3 1 1 


ikAMRFO ftp TPCTC DIM Tkl DACC 
1 mjviDCA ur 1 1.31 3 K\,^ IN ^n33 


63 


021554 


U\I3U3 ' 


ftft33 1 A • 






PI P 


r A 1 r t-O 


• n FAB FATA! FPOftP m AlT 
t LUCnK r A 1 At. CHKUH V.IA^I 


64 


021560 




ftftXI XA' 
W3X30 






CLR 


T23A 


• 1*1 FAB DSnfCCftB TvDF A Fl Ar 
t LUCWf KHlA*33lW 1 TKt A r LaU 


65 


021564 




AftXl AA* 






CLR 


T236 


.n FAD DBftfCCnO TvDF D Fl AT 


66 










1 


MftU 

nuv 


AXAft .rcp^ 




67 










1 


MftU 

nuv 


A3n < . r CD \ 


JACIV^ffl Iw UCD\AJOCn 


68 










1 




ft nnT 

U . UU 1 


t 1 WDcri 1 CA 1 nc wcdvaajca 


69 021570 


lA^3Vd r 








n p 




• n FAB TMF CiSITFCT "CKTPDFD" 


70 


021574 








3ft< • 








71 


021574 


ft* 


1 77777 


ftn3 1 7#t > 




MftU 

nuv 


A 1 ftuD 


1 OliTrw UFPTFV 

t • • • W^XvA V.Alr 1 • • , 


72 


021602 


004737 


020530' 






ICO 


D(* CMUTDSJ 


iSET ENVIRONMENT. 


73 


021606 


004737 


020616' 






J3a 


DC KTTWTT 
r\m 1 Inl 1 


J INITIALIZE KT MEMORY MANAGEMENT 


74 


021612 


ftl 37ftft 


AAXI 7ft • 






MftU 

nuv 


AFOTAAI on 




75 


021616 


AACA^A 






Xft* • 


a D 

LLN 


V KU / ♦ 


.ri FAB THF FPBftB TARI F 
IImCCaa iric CAAUff i AOL.C 


76 


021620 




ftnXX7ft' 
UU33 rv 








Oft Afro T ABC 




77 


021624 










Ql ft 


Xftt 
3U* 




76 


021626 










QO 

BH 


^ f 




79 021630 


Uv3V3< 


ftft3l 7A' 




XI t • 
3X« : 




ftUD 

yvK 




80 
81 


021634 




ft31 






MD 


DACODT 


,Cf\ BFBftBT TkV CTATllC 

|4JU ACr I \t1C 7 I a I V3 


82 


021640 
















83 


021640 


ftl 37X7 


1 77777 


ftft31 7A ' 




MftU 

nuv 


A 1 lAlTTIkl 
V- 1(UN1 IN 


• TMTT IMTT Ml MBFD 

I irii 1 yjnx i pk^vck ... 


64 


021646 


W3U3r 


ftft331 3* 






ri p 


UCVbN 1 


• FAD fmatiT ftr hfutpfc oiMtirita' 


65 


021652 


















021652 


1 AAA 33 








TOAD 






86 


021654 


UU3c3 ' 


AAO 1 "J A * 






INC 


UNITN 


Aun CET kJFVT lAiTT ka MDFD 


87 


021660 


ft3X7<7 


nA31 ' 


nnoAi 3> 

VUcVXc 




CMP 


UNITN.LtUNXT 




86 


021666 


1 ftXA3V 
XU3^c3 








ni ft 


CF Tl 1 
3C 1 U 




89 


021670 


ftl 37X7 


1 77777 


ftAX4 fSA ' 




MQV 


A.I OuFLG 




90 


021676 


ftftftAftl 








BR 


111 




91 


021700 










OOCLN 




•ARftBT km MftBg IMTTC 
1 ffVl^ 1 • VVU r^JnC UnX i 3 ft 




021700 


1 A« MM A 








TRAP 


OOCLN 




92 


021702 








114. 

11* : 


NOP 






93 


021704 








PASRPT : 








94 


021704 


023727 


002012' 


000001 




CMP 


LtUNIT.n 


iHOU MANY UNITS SELECTED? 


95 


021712 


Ifti 7^3 








BLCS 


NEUPAS 


• BP IF niui Y 1 

1 DA L~ UV<iL. * X 


96 


021714 


0057S7 








TST 


OEVCNT 


lARE ANY STILL RUNNING? 


97 


021720 


001747 








BEQ 


NEUPAS 


iBR IF NO 


96 


021722 










RFLAGS 


RO 






021722 


104421 








TRAP 


C»RFLA 




99 


021724 


032700 


000100 






BIT 


*ISR.RO 


1 SHOULD UE PRINT STATISTICS 


100 
101 


021730 


001343 








BNE 


NEUPAS 


iBR IF NO 


102 


021732 










OORPT 








021732 


104424 








TRAP 


CtORPT 





TSV4 - niSCELLANEOUS SECTIONS 
INITIALIZE SECTION 



MACRO rilllS 01 -FEB -64 16:55 



103 021734 

104 021736 
105 

106 021736 
021736 
021742 

107 021744 
021744 

106 021746 

109 021752 

110 021756 

111 021760 
112 

113 021764 
114 

lis 

116 021766 

117 021772 
lie 021776 
119 

120 022002 

121 

122 

123 

124 

125 

126 

127 

126 022002 

129 022006 

130 022010 

131 022016 

132 022022 

133 022030 

134 022032 
022032 

135 022034 

136 022040 

137 022042 
022042 
022046 
022052 
022056 
022060 
022062 

136 022066 

139 022066 

140 022072 

141 022076 

142 022100 

143 022104 

144 022110 

145 022112 

146 022116 
14 7 022124 
146 

149 



000741 



013700 002174' 
104442 

103342 

005037 003104* 
005237 002212' 
012001 

010137 002200* 
012001 



010137 002202' 
012721 016106' 
013721 002204' 



101: 

SETU: 



BR 



NEWPAS 



GPHARD UNITN.RO 

nOV UNITN.RO 

TRAP CIGPHRO 
BNCOnPLETE NXTU 

BCC NXTU 

CLR DUFLG 

INC DEVCNT 

MOV (R0)*.R1 

MOV Rl.CSRAODR 



II: 

I 

t 



hOV 

iMOV 

I MOV 

MOV 

MOV 

MOV 



TST 
BEQ 



(R0)».R1 

(R0).R2 

R2.IPRI 

Rl.IVEC 

♦INTR.CRl)^ 

IPRI.CRU* 



QVP 



SEQ 063 



iGET UNIT N P- TABLE POINTER. 

iBR ir UNIT NOT AVAILABLE. 

I CLEAR "DROPPED " FLAG. 

iGET 1ST REGISTER ADDRESS. 

I ADDRESS OF REGISTERS OF UNIT UNDER TEST 

tGET VECTOR ADDRESS. 

iGET INTERRUPT PRIORITT 

iSET INTERRUPT PRIORITY. 

tSET INTERRUPT VECTOR POINTER... 

«... VECTOR... 

t...ANO PRIORITY. 



1 1ST PASS ?? 

I NO. SKIP THE PASS 1 STUFF. 



tlST PASS. CHECK THAT DEVICE ADDRESSES ARE VALID. AND 
(THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



002174' 

100000 003170' 
005600' 

002012' 000001 



001000 



002174- 
022134' 
000002 



000006 

003106' 
002200' 

000002 
016266' 

003106' 

177777 003104' 



10»: 



21: 



MOV UNITN.Rl 

ASL Rl 

BIS «BIT1S.ERTABL(R1) 

CLR EXTA 

CMP L (UNIT. •I 

BLOS lot 

RFLAGS RO 

TRAP CtPFLA 

BIT tPNT.RO 

BEQ 10 > 

PRINTF ♦PUNIT.UNITN 

MOV UNITN.-(SP) 

MOV «PUNIT..(SP) 

MOV #2.-(SP) 

MOV SP.RO 

TRAP C»PNTF 

ADO *6.SP 

CLR NOOEV 

MOV CSRAOOR.Rl 

MOV R1,R2 

ADO «TSSR.R2 

JSR PC.XNXM 

BCC 21 

MOV Rl.NODEV 
MOV DUFLG 



iSAY DEVICE RUM4ING 
«aEAR ERROR EXTENSION FLAG. 
lARE UE TESTING MULTIPLE UNITS? 
tBR IF NO. 

J YES -- GET OPERATOR FLAGS. 

t SHOULD UE PRINT UNIT #? 

iBR IF NOT, 

I PRINT THE UNIT • 



I ADDRESS OF FIRST REGISTER 

I START OF REGISTERS 

I ADDRESS OF TSSR REGISTER 

I TEST BOTH CONTROLLER REGISTERS. 

t. . .AND BR IF ALL OK. 

(FLAG DEVICE AS NON-EXISTENT 

lOROP THIS UNIT. 



iFINALLY. SET CPU PRIORITY ANC WE'RE DONE. 



G7 



TSV4 HISCELLANEOOS SECTIONS 
INITIALIZE SECTION 
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SEQ 084 



150 

151 022124 
022124 
0221S0 

152 022 132 
022132 
022132 

153 

154 022134 

155 

156 

157 

150 

159 

160 

161 

16c' 

163 

164 022202 
022202 

165 022202 

166 022204 

167 022206 

168 022214 

169 022222 
022222 
022224 
022230 
022234 
022236 
022240 

170 022244 
022244 
022246 

171 022250 
172 

173 

174 022276 
022276 
022276 

175 
176 
177 
178 
179 
160 
181 
182 
183 
184 
165 

186 022300 
022300 

187 022300 

188 022306 

189 022310 

190 022312 



012700 
104441 



104411 
045 



000000 



116 



I 

5»: 



L 10030: 



010001 
006301 
052761 
042761 

010046 
012746 
012746 
010600 
104417 
062706 

000167 
000026 
045 



104452 



100000 
040000 



022250' 
000002 



000006 



003170' 
003170' 



116 



012737 
010001 
006301 
052761 



177777 003104' 



140000 003170' 



SETPRI tPRIOO 
nOV •PRIOO.RO 
TRAP CISPRI 
ENOINIT 



(ENABLE INTERRUPTS. 



TRAP 



C»INIT 



045 PUNIT: 



. ASCIZ /«NtfNllA« 
.EVEN 



>* TESTING UNIT M}2KA **«**/ 
.SBTTL ADD AND DROP UNITS SECTIONS 



I ♦ ♦ 

: 
> 



THE ADO -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME. 
OR CB) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



; -- 
L>AU: 



045 lit 



L 10031: 



BGNAU 

HOV 
ASL 
BIS 
SIC 
PRINTF 

nov 

NOV 

MOV 

MOV 

TRAP 

ADO 

EXIT 

.WORD 

.WORD 

.ASCIZ 

.EVEN 

ENDAU 

TRAP 



RO.Rl 
Rl 

•100000. ERTABL(Rl) 

•40000. ERTA8L(R1} 

♦1».R0 

RO.-CSP) 

♦1».-(SP) 

♦2.-CSP) 

SP.RO 

C»PNTF 

♦6.SP 

AU 

JtJMP 
L10031 
/«N«A 



t GET UNIT TO BE ADDED (RO) 
i MAKE IT A WORD INDEX 
I SET THE "ACTIVE" BIT 
I CLEAR THE "DROPPED" BIT 



2-. 

UNIT «0«A ADDED/ 



UNUSED. 



C*AU 



THE DROP-UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE MAN. 
"DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADO- 
COMMAND, OTHERWISE REMAIN INACTIVE. THE "DISPLAY" COMMAND 
WILL PRINT ALL DROPPED UIVITS. AND THE P-TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 

UPON ENTRY. RO CONTAINS THE UNIT TO BE DROPPED. 



L»DU: 



BGNOU 

MOV 
MOV 
ASL 
BIS 



♦-1.DUFLG 

RO.Rl 

Rl 

*140000.ERTABL(RI) 



» SAY DROPPED 



TSV4 MISCELLANEOUS SECTIONS 
AOO AND DROP UNITS SECTIONS 
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SEQ 085 



191 022320 

192 022526 
022526 
022550 
022354 
022540 
022542 
022544 

193 022550 
022350 
022352 

194 022554 
195 

196 022404 
022404 
022404 

197 
198 
199 

200 022406 
022406 

201 022406 

202 022412 
205 022416 

204 022422 

205 022424 
022424 
022450 
022452 
022456 
022440 
022444 
022446 
022452 

206 022454 

207 022456 

208 022460 

209 022464 

210 022464 
022464 
022464 

211 
212 
215 
214 
215 
216 
217 
216 

219 022466 
022466 

220 022466 

221 022472 

222 022476 
225 

224 

225 022500 



000240 000240 000240 



010046 
012746 
012746 
010600 
104417 
062706 

000167 
000050 
045 



104453 



015705 
012705 
004737 
105420 

012727 
000000 
015727 
000000 
005567 
001575 
005567 
001567 
005503 
001557 
004757 



104461 



015705 
005757 
100405 



022554' 
000002 



000006 



116 



045 1): 



002200' 

000550 

016140' 



000572 
002116' 
177772 
177756 

017074' 



L 10052: 



i - 



LIAUTO: 



lot; 



240.240.240 


1 ???77???? 


PRINTF 


«1«.R0 


MOV 


RO, (SP) 




MOV 


♦1». -CSP) 




MOV 


♦2.-tSP) 










TRAP 


C»PNTF 




Ann 






EXIT 


DU 




.WORD 


J»JMP 




.UORO 


L10052-2 . 




.ASCIZ 


/«NitA UNIT 


«0«A DROPPED/ 


.EVEN 






ENOOU 






TRAP 


C<OU 




>R0P CODE SECTION. 




BGNAUTO 






MOV 


CSRA0DR.R5 


(POINT TO DEVICE REGISTER 


MOV 


«560. .R5 


(ENOUGH TIME FOR 2400' REEL 


JSR 


PC.WAITF 


jWAIT FOR SSR TO SET 


BCS 


20* 


(LEAVE UHEN SSR IS SET 


DELAY 


250. 


(WAIT FOR .25 SECONDS 


MOV 


♦250..(PC)» 




.UORD 


0 




MOV 


L$DLY.(PC)» 




.UORO 


0 




DEC 


-6(PC) 




BNE 


. -4 




DEC 


-22(PC) 




BNE 


.-20 




DEC 


R5 


(BUMP COUNTER DOWN 


BNE 


10» 


(KEEP GOING 


JSR 


PC.CKOROP 


(TRY AND DROP UNIT 


ENOAUTO 




; UNUSED. 


TRAP 


C»AUT0 





20t: 
L 10055: 



.S8TTL CLEAN-UP AND REPORT COOING SECTIONS 

1*THE CLEANUP CODING SECTION CONTAINS THE wJQING THAT IS 

I EXECUTED AT THE END OF EACH PASS (OR SUB -PASS). 

( USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 



002200' 
005104' 



LICLEAN: 



BGNCLN 

"liov 
TST 
BNI 



012765 000000 000002 



MOV 



CSRAD0R.R5 

OUFLG 

1« 



«0.TSSR(R5) 



(POINT TO DEVICE REGISTER 
("DROPPED" FLAG IS SET ON... 
( . . .AND GROSS CONTROLLER FAULT. . . 
(...DON'T TRY TO XCT CLEANUP CODE. 

I 00 SOFT INIT 



17 



TSV4 HISCELLANEOOS SECTIONS MACRO MlllS 
CLEAN UP AND REPORT COOING SECTIONS 



01 -FEB -64 18.55 



SEO 006 



22€ 


022506 


004737 


016140' 


JSR 


PC.WAITF 




227 


022512 






11: 












2»: ENOCLN 








022312 






L 10034; 








022512 


104412 




TRAP 


CtCLEAN 












» ♦ ♦ 






c3U 








» THE REPORT C^jlNG SECTION CONTAINS THE 


on 








; "PRINTS" CALLS THAT GENERATE 


sTATXbiXLAL REPORTS. 


c5c 


0223 14 






• 

BCNRPT 








Uce314 






L»RPT: : 








A33d A 






PRINTS 


•OEVSUM 






/\03^1 A 


A1 37Ail. 


Oec ' 30 


MOV 


•OEVSUM.-(SP) 






Vcc3cv 


A1 374<^ 


AAAAAI 
UUWA/X 


MOV 


♦l.-CSP) 






rt33^34 
vcc3c^ 


A1 A4^AA 




riov 


SP.RO 






n33^34l 
vec3cD 


1 A441 A 




TRAP 


C»PNTS 






n33CX/> 
Wec33V 


A4l37n<« 


AAAAA4 


ADO 


«4.SP 






n33^X4 
Vcc30# 


A1 A34il 




MOV 


R2,-(SP) 




cOO 


fl33^X/l 
Ucc330 


A1 AX4A 




MOV 


R3.-(SP) 






n33^4n 


A1 A44A 




MOV 


R4.-CSP) 






/V03K43 
vcc3^c 


A1 37A4 

Vic » 


AAX1 70' 
WdX f U 


MOV 


•ERTA6L.R4 


t otl 5IARI Or tRHOR TABLE. 




n33C4^ 
Ucc3^0 


AA^AAX 




CLR 


R3 


i CLEHR UNIT NLVIdER 




Ucc33U 


A1 1 4A3 




1«; MOV 


CR4).R2 


> GcT ERROR TABLE ENTRY 6 TEST IT 




vi:233c 


4^7 




BEQ 


41 


1 ZcRO Ir UNIT NOT RUN 


C^C 


Vcc334 


1 AAA&A 




BPL 


4« 






Ucc330 


AX37A3 


A4nAAA 


BIT 


«BIT14.R2 


t MAS UNIT DROPPED? 


344 


033^il3 
Uee30c 


AA1 A1 ^ 




BNE 


2t 


1 BR Ir YES 


34^ 


VC2304 




X rOOUU 


BIC 


#tC7777,R2 


t licl CHROK COtMT rItLU 


34^ 


A33I£7A 
Ucc3 rO 






PRINTS 


•0EV0NL.R3,R2 


1 PHINI 




Vcc3 r U 


A1 A34iL. 




MOV 


R2.-(SP1 






A33^73 
wcc3 r 2 


A1 AX4il 




MOV 


R3.-(SP) 






ft33^74 
Uce3 f * 


A1 374iL 


02301d 


MOV 


•OEVONL.-(SP) 






A33Jl/V^ 


Al 37^^ 


AAAAAV 

OUOOU3 


MOV 


•3.-(SP) 






n33An4 


A1 /^AA 




MOV 


SP.RO 








1 A441 A 




TRAP 


C»PNTS 








A«^37AJ^ 


AAAA1 A 


AOO 


♦10. SP 




347 


0334^1 4 


/W\44£ 
VAA/*^0 




BR 


4t 




3411 




A3A337 
wcvcc r 


1 &AAAA 


2»: CMP 


R2.*160000 


; MAS UNIT NON-EXISTENT? 


34 Q 


ft33A33 


AA1 A1 3 




BNE 


31 


BD TC klA 

1 DH Ir NO 




A33<\34 






PRINTS 


«0EVNXR,R3 






033A34 


At AX4JI 




MOV 


R3.-(SP) 






n33<L3<L 


A1 374iL 


A3XA£ V « 
020UD3 


MOV 


♦OEVNXR.-(SP) 






n33AX3 


A1 374& 


AAA^>0 


MOV 


•2.-(SP) 








A1 A&AA 




MOV 


SP.RO 






033<«4n 






TRAP 


CIPNTS 






A33ii40 


(^37A<1 


AA/MA^ 


MOO 


«6.SP 












BR 


41 




3S3 




A3A337 


« AAAA1 


3»: CMP 


R2.«160001 


1 UAS UNIT NOT READY AT STARTUP? 


3SX 


n33AS4 


AA1 A1 3 




BNE 


sot 


; BR IF NO. 


254 


022656 






PRINTS 


«DEVNR0.R3 




022656 


010346 




MOV 


R3.-(SP) 






022660 


012746 


023145' 


MOV 


•OEVNRD. -(SP) 






022664 


012746 


000002 


MOV 


#2.-(SP) 






022670 


010600 




MOV 


SP.RO 






022672 


104416 




TRAP 


CfPNTS 






022674 


062706 


000006 


ADO 


#6,SP 




255 


022700 


000414 




BR 


4$ 





TSV4 MISCELLANEOUS SECTIONS MACRO M1115 01 FEB 84 
CLEAN UP AND REPORT COOING SECTIONS 



256 


022702 


042702 


1/0000 




50t: 


BIC 


257 


022706 
022706 
022710 


010246 
010346 








PRINTS 

MOV 

MOV 




022712 


012746 


023226' 






MOV 




022716 


012746 


000005 






MOV 




022722 


010600 








MOV 




022724 


104416 








TRAP 




022726 


062706 


000010 






ADD 


256 


022732 


062704 


000002 




4$: 


ADO 


259 


022736 


005203 








INC 


260 


022740 


020427 


005570' 






CMP 


261 


022744 


103701 








BLO 


262 


022746 


012604 








MOV 


265 


022750 


012603 








MOV 


264 


022752 


012602 








MOV 


265 


022754 
022754 
022754 


104425 






L 10055: 


ENORPT 
TRAP 


266 














267 














268 


022756 


045 


116 


045 


OEVSUM: 


.ASCIZ 


269 


023013 


045 


101 


040 


OEVONL: 


.ASCIZ 


270 


023063 


045 


101 


040 


OEVNXR: 


.ASCIZ 


271 


023145 


045 


101 


040 


OEVNRO: 


.ASCIZ 


272 


023226 


045 


101 


040 


OEVDRO; 


.ASCIZ 


273 












.EVEN 


274 














275 


023276 










ENOMOO 



276 
277 
278 



J7 

18:55 



SEQ 087 



♦tC7777.R2 

•OEVDRO. R5.R2 

R2.-(SP) 

R5.-(SP) 

•OEVDRO. -(SP) 

♦5.-(SP) 

SP.RO 

CtPNTS 

•10. SP 

•2.R4 

R5 

R4.«ERTABE 
1* 

CSP)».R4 
(SP)*.R5 
(SP)*.R2 

t UNUSED. 

CIRPT 



/«NtfADEVlCE STATUS SUMMARY 

/tfA UNIT «D5«A ONLINE. ERRORS " tfOMZ 

/tfA UNIT «D5«A DROPPED. NON-EXISTENT REGISTER«N/ 

/tfA UNIT «5«A DROPPED. NOT READY AT STARTUP«N/ 

/«A UNIT «D5iiA DROPPED. ERRORS - KDtfN/ 



I<7 



TEST I HAROUARE TEST 1 6 TEST MACRO MlllS 
CLEAN-UP AND REPORT COOING SECTIONS 

1 

2 
9 



01 FEB 64 16:55 



SEQ 066 



10 023276 
023276 

16 
24 
25 
26 
27 
26 
29 
30 
31 
32 
33 
34 
35 
36 

37 023276 
023276 
36 023276 

43 023304 

44 023310 

45 023314 

46 023322 

47 023326 
48 

49 
SO 
51 
52 
53 
54 
55 
56 
57 
56 
59 

60 023326 
023326 
023326 

61 023330 

62 023334 

63 023340 

64 023344 

65 023352 

66 023356 

67 023360 
023360 
023364 
023366 
023372 
023374 
023400 
023402 
023406 



TSV7B!: 



TITLE TEST 1 HARDWARE TEST 1-6 TESTS 



BGNMOD TSV7B 



.SBTTL TEST 1: URITE TAPE MARK RETRY 



THIS TEST VERIFIES PROPER OPERATION OF THE URITE TAPE MARK RETRY COMMAND (SPACE 
REVERSE. ERASE. URITE TAPE MARK). SUBTESTS ARE AS FOLLOWS: 

THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 



012737 
012700 
004737 
012737 
005037 



006166' 

031677' 

016402' 

000005 

026254' 



002172' 



002210' 



T29L00P: 



i ♦ 



BGNTST 

NOV 
HOV 
JSR 
MOV 
CLR 



♦EPRTl.EPRTSW 

«TST29ID.R0 

PC.TSTSETUP 

♦5.L00PCNT 

T29CNT 



Tl: : 

(PRIMARY ERROR MESSAGE 
{ASCII MESSAGE TO IDENTIFY 
lOO INITIAL TEST SETUP 
iPERFORM 5 ITERATIONS 
i CLEAR TAPE RECORD COUNTER 



TEST 



TEST 1. SUBTEST 1 

VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE 

TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION. WITH THE 

NON -EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 



104402 

004737 031726' 

004737 032020' 

004737 032062' 

012737 023420 026260' 

004737 015664* 10»: 

103426 

012727 000250 
000000 

013727 002116' 
000000 

005367 177772 
001375 

005367 177756 
001367 



BGNSU8 



JSR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



PC.T29REST 

PC.T29RT2 

PC.T29RT3 

♦10000.. T290LY 

PC.SOFINIT 

20t 

250 



• >>>>>>>>>>>> BEGIN SUBTEST ■>>>>>>>>>>>> 
Tl.l: 

TRAP C<OSUB 

I SET COMMAND PACKET 

t SET UP OTHER COMMAND PACKET 

; SET UP OTHER COMMAND PACKET 

I SET UP DELAY ROUTINE 

tOO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

I DELAY ABOUT .25 SECONDS 

MOV dSSO.CPC). 
.WORD 0 

MOV L»0L1.(PC). 

.WORD 0 

DEC 6(PC) 

BNE . 4 

DEC 22(.PC) 

BNE . 20 



rtST 

TEST 



L7 



I HARDWARE TEST 1 8 TEST MACRO MlllS 
1: WRITE TAPE MARK RETRY 



01 FEB 84 18:55 



S£Q 089 



68 023410 

69 025414 

70 023416 

74 023422 

75 023424 
023424 
023426 
023430 
023432 

76 023434 
77 

78 023442 

79 023446 

80 023452 

81 023454 

85 023460 

86 023462 
023462 
023464 
023466 
023470 

87 023472 
023472 

88 023474 

89 023500 

90 023502 

91 023506 

92 023510 

96 023512 
023512 
02S514 
023516 
023520 

97 023522 

98 023526 

99 023532 

100 023536 

101 023542 

102 023544 

103 023546 

107 023552 
023552 
023554 
023556 
023560 

108 023562 
023562 

109 023564 

110 023570 

111 023572 

112 023576 

113 023600 

114 C23602 
118 023606 

023606 
023610 
023612 



005357 026260' 
001556 

005257 002214' 
010001 

104455 
000145 
003642' 
011724* 

013737 002174' 026110' 20t: 

012704 026070' 
004737 010552' 
103407 

00S2S7 002214' 
010001 

104456 
000146 
005046' 
011724' 



104406 

016501 000002 
010102 

042702 000100 

020102 

001406 



104455 

000147 

026262' 

015364' 

004737 

004737 

016501 

012702 

103407 

010004 

005237 



25t: 



017074' 
010704' 
000002 
000200 



002214* 



261: 



104456 

000150 

030065' 

011736' 

104406 

013701 
010102 
052702 
020102 
001406 
005237 

104456 
000151 
027556' 



301: 



026120' 
000002 

002214' 



DEC 
BNE 
INC 
MOV 

ERRor 



MOV 

MOV 
JSR 
BCS 
INC 
MOV 

ERRHRO 



CKLOOP 

MOV 
MOV 
BIC 
CMP 
BEQ 
ERROF 



T290LY 

lot 

FATFLG 
RO.Rl 

ERRNO . Sr ZERR . SFZMSG 



UNITN.T290SU 

«T29PACKET,R4 
PC.URTCHR 
25 1 

FATFLG 
RO.Rl 

ERRNO , WRTMSG . SF IMSG 



iBUMP DELAY ROUTINE DOWN 

I BR. IF MORE DELAY TIME LEFT 
I ERROR COUNT 

t CONTENTS OF TS5R REGISTER 

I FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 101 
.UORD SFIERR 
.WORD SFIMSG 

iSET UP UNIT NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 

i ISSUE URITE CHARACTERISTICS 

I BR. IF COMMAND ISSUED OK 
I ERROR COUNT 

I SAVE CONTENTS OF TSSR 

iURITE CHARACTERISTISC FAILED 

TRAP 
.UORD 



iLOOP IF SELECTED 



TSSR(R5),R1 

R1.R2 

•0FL,R2 

RI.R2 

26t 

ERRNO . T290FL . EXPREC 



.WORD 
.WORD 

TRAP 



tGET THE TSSR 
tSET UP EXPECTED 
lOFF LINE SHOULD NOT BE SET 
I THEY SHOULD BE EQUAL 
iBR. IF OFL IS NOT SET 
tORlVE IS OFF LINE 



JSR 


PC.CKOROP 


{TRY AND DROP DRIVE 


JSR 


PC. REWIND 


iCALL TAPE REWIND COTtlAND 


MOV 


TSSR(R5).Rl 


tGET TSSR 


MOV 


•SSR.R^ 


»SET UP EXPECTED TSSR 


BCS 


301 


iBR. IF NO PROBLEM 


MOV 


R0.R4 


{PACKET ADDRESS SET UP 


INC 


FATFLG 


1 ERROR COUNT 


ERRHRD 


ERRNO . T29RUN , PK TSSR 


{REWIND NOT ACCEPTED 



TRAP 
.WORD 
.WORD 
.WORD 



TRAP 
.WORD 
.WORD 
.WORD 



CKLOOP 




J LOOP IF SELECTED 






TRAP 


MOV 


T29BFR*6.R1 


J PICK UP XSTO 


MOV 


R1.R2 


iSET UP EXPECTED 


BIS 


«BIT1.R2 


iSET EOT BIT IN EXPECTED 


CMP 


R1.R2 


lOOES EXP - REC'D 


BEQ 


40t 


iBR. IF EQUAL (OK) 


INC 


FATFLG 


i ERROR COUNT 


ERRHRD 


ERRNO. T29eOT .EXPREC 


J TAPE NOT AT BQT AFTER REWIND 



CtERHRO 
102 
WRTMSG 
SFIMSG 

C$CLP1 



C«EROF 
105 

T290FL 
EXPREC 



C»ERHRO 
104 

T29RWN 
PKTSSR 

C»CLP1 



TRAP 
.WORD 
.WORD 



C»ERHR0 
105 

T2980T 



rEST 
TEST 



1: 



HAROUARE TEST 1 8 TEST MACRO niilS 
URITE TAPE MARK RETRY 



023614 

119 023616 
023616 

120 023620 

121 023626 

122 023634 

123 023640 

124 023644 

125 023650 

126 023654 

127 023660 

128 023662 

129 023664 

133 023670 
023670 
023672 
023674 
023676 

134 023700 
023700 

135 023702 

136 023706 

137 023710 
136 023714 

139 023716 

140 023720 

144 023724 
023724 
023726 
023730 
023732 

145 023734 

146 023734 

147 023736 

148 023740 
023740 
023740 

149 023742 

150 023750 

151 023752 

152 023756 
153 

154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 

166 023756 
023756 
023756 



015364' 
104406 

013737 003116' 026222' 

012737 141011 026220' 

012704 026220' 

010465 000000 

004737 016140' 

016501 000002 

012702 100206 
020102 
001406 

005237 002214" 

104456 
000152 
027342' 
011736' 

104406 

013701 026120' 
010102 

052702 002000 

020102 

001406 

005237 002214' 

104456 
000153 
026410' 
015364' 

005103 
001273 



104403 

023727 002214' 000017 
103402 

004737 017074' 



401: 



75* ! 



170>: 



999$ I 





M7 




FEB 64 


18:55 


SEQ 090 






, MUKU tAKKCL 






1 LUUr* Ir SCLCLICU 






TrW C»CLrl 


nuv 


r KCC a 1 C^fHO 


.Annoccc DCAn qicccd 
inUUNtsa Ur KtnU oUr r C.K 


nuv 




■ LlOTTC TADC MAOl/ DCTOv ^if^al t^Ci^ |~n>it iflt in 
iMKlIt 1 Hrt nHHK Kc IHT tLVU'I ( ACK COnnUND 


nuv 




.CCT OA IjTTkJ DAPVCT AftnOCCC 

J 3t 1 Ur K4 Uiiri PMLKc 1 HUQKC.S3 


nuv 


OA Tcnaro^^ 

, 1 aUOl K3 ) 


t 133UC LUnnnNU 


■CD 


DC UllTTC 


.UATT CnO CCD Tn CCT 
(MMll r UK sbK lU bfc 1 


nuv 




iClPT TCCD PnUTCUTC 

luci 1 33N LUNicriia 


Mnu 
nuv 




■CCT lO cvDcrTcn 


TMD 




• ADC TUC V C(^ lAl 


BEQ 


75$ 


iBR IF OK 


INC 


FATFLG 


(ERROR COUNT 


ERRHRO 


ERRNO. T29U0E . PKTSSR 


tTSSR INCORRECT AFTER READ DATA 



CKLOOP 




»LOOP IF SELECTED 


MOV 


T29BFR*6.R1 


(GET XSTO STATUS WORD 


MOV 


R1.R2 


(SET UP EXPECTED 


BIS 


«eiT10.R2 


(SET THE NEF BIT 


C^"» 


R1.R2 


(ARE THEY EQUAL 


BEQ 


170» 


:BR, IF EQUAL (GOOD) 


INC 


FATFLG 


(ERROR COiJNT 


ERRHRO 


ERRNO . T29NEF . EXPREC 


(NEF SHOULD BE SET 



TRAP 
.UORD 
.WORD 
.UORD 

TRAP 



CtERHRO 
106 

T29goe 

PKTSSR 
CICLPl 



COM R3 
BNE 261 
ENOSUB 



TRAP C(ERHRO 
.UORD 107 
.UORD T29NEF 
.UORD EXPREC 

(RESET THE SWITCH 

(BR. IF FIRST TIME THROUGH HERE 



CMP 
BLO 
JSR 



FATFLG, 015 . 
999t 

PC.CKDROP 



L 10057: 

TRAP 

IS ERROR COUNT AT 25 
BR. IF LESS THAN 25 
TRY 10 DROP THE UNIT 



CIESUB 



TEST 1, SUBTEST 2 

VERIFIES THAT A URITE TAPE MARK RETRY COMMAND ISSUED UHILE THE TAPE 

IS POSITIONED BEFORE THE FIRST RwJORO ON TAPE CBUT NOT AT BOT) RESULTS IN 

TAPE STATUS ALERT TERMINATION. UI THE REVERSE INTO BOT CRIB) STATUS BIT 

SET. 



BGNSUB 



104402 



• >>>>>>>>>>>> BEGIN SUBTEST >>■»>>>>>>>>> 
T1.2: 

TRAP CSBSUB 



N7 



TEST I 


' HAROUARE TEST ; 


1 a TEST 


TEST 1 


: URITE 


TAPE HARl 


\ Retry 


167 


025760 


004737 


031726' 


168 


023764 


004737 


032020' 


169 


023770 


004737 


032062' 


170 


023774 


004737 


015664' 


171 


024000 


103407 




172 


024002 


005237 


002214 ' 


176 


024006 


010001 




177 


024010 








024010 


104455 






024012 


000154 






024014 


003642' 






024016 


011724' 




176 


024020 


013737 


002174* 


179 








180 


024026 


012704 


026070' 


181 


024032 


004737 


010552' 


182 


024036 


103407 




163 


024040 


005237 


002214' 


187 


024044 


010001 




186 


024046 








024046 


104456 






024050 


000155 






024052 


005046' 






024054 


011724' 




169 


024056 








024056 


104406 




190 


024060 


004737 


010704' 


191 


024064 


016501 


000002 


192 


024070 


012702 


000200 


193 


024074 


103407 




194 


024076 


010004 




195 


024100 


005237 


002214' 


199 


024104 








024104 


104456 






024106 


000156 






024110 


030065' 






024112 


011736' 




200 


024114 








024114 


104406 




201 


024116 


013701 


026120' 


202 


024122 


010102 




203 


024124 


052702 


000002 


204 


024130 


020102 




205 


024132 


001406 




206 


024134 


005237 


002214' 


210 


024140 








024140 


104456 






024142 


000157 






024144 


027556' 






024146 


015364' 




211 


024150 


012737 


000001 


212 


024156 


012737 


000400 


213 


024164 


012737 


140005 


214 


024172 


012704 


026220' 


215 


024176 


010465 


000000 


216 


024202 


004737 


016140' 


217 


024206 


016501 


000002 



01 FEB-84 16:55 



SEQ 091 



25$: 
26$: 



30$: 



JSR 
JSR 
JSR 
JSR 
BCS 
INC 

nov 

ERROF 



MOV 

HOV 
JSR 
BCS 
INC 
MOV 

ERRHRO 



CKLOOP 

JSR 
MOV 
MOV 
BCS 
MOV 
INC 

ERRHRO 



PC.T29REST 

PC.T29RT2 

PC,T29RT3 

PC.SOFINIT 

20$ 

FATFLG 
RO.Rl 

ERRNO . SF lERR . SF IMSG 



UNITN,T29DSU 

♦T29PACKET,R4 

PC.WRTCHR 

25$ 

FATFLG 
RO.Rl 

ERRNO . URTMSG . SF IMSG 



PC. REWIND 

TSSR(R5).R1 

♦SSR.R2 

30$ 

R0.R4 

FATFLG 

ERRNO . T29RWN . PK TSSR 



I SET COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
tSEI UP OTHER COMMAND PACKET 
1 00 INITIALIZE ON CONTROLLER 
I BR IF INIT WAS OK 

(ERROR COUNT 
(CONTENTS OF TSSR REGISTER 
(FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.UORD 
.UORO 

(SET UP UNIT NUMBER 



C$EROF 
106 

SFIERR 
SFIMSG 



(SUBROUTINE NEEDS PACKET ADDRESS 

(ISSUE WRITE CHARACTERISTICS 

(BR. IF COMMAND ISSUED OK 
(ERROR COUNT 

(SAVE CONTENTS OF TSSR 

(WRITE CHARACTERISTISC FAILED 

TRAP C$ERHRD 
.WORD 109 
.WORD WRTMSG 
.WORD SFIMSG 

(LOOP IF SELECTED 

TRAP C$CLP1 
(CALL TAPE REWIND COMMAND 
(GET TSSR 

(SET UP EXPECTED TSSR 
(BR. IF NO PROBLEM 
(PACKET ADDRESS SET UP 

(ERROR COUNT 
(REWIND NOT ACCEPTED 

TRAP CJERHRD 
.WORD 110 
.WORD T29RWN 
.WORD PKTSSR 

C$CLP1 



CKLOOP 




(LOOP IF SELECTED 






TRAP 


MOV 


T296FR*6.R1 


(PICK UP XSTO 


MOV 


R1.R2 


(SET UP EXPECTED 


BIS 


«eiTl.R2 


(SET BOT BIT IN EXPECTED 


CMP 


R1.R2 


(DOES EXP - REC'D 


BEQ 


40$ 


(BR. IF EQUAL (OK) 


INC 


FATFLG 


(ERROR COUNT 


ERRHRO 


ERRNO . T29B0T . EXPREC 


(TAPE NOT AT BOT AFTER REWIND 



MOV 91 . T29RB 

MOV ♦256..T29SZ 

MOV «140005,T29PK3 

MOV ♦T29PK3.R4 

MOV R4.TSDB(R5) 

JSR PC.WAITF 

MOV TSSR(R5).Rl 



TRAP CSERHRO 
.WORD 111 
.WORD T2960T 
.WORD EXPREC 
(NUMBER OF RECORDS TO SPACE OVER 
(SET UP RECORD SIZE 
(WRITE FORWARD. CVC-l.ACK COMMAND 
(SET UP R4 WITH PACKET ADDRESS 
(ISSUE COMMAND 
(WAIT FOR SSR TO SET 
(GET TSSR CONTENTS 



B8 



TEST I HARDWARE TEST I 6 TEST MACRO Mil 15 
TEST 1: URITE TAPE MARK RETRY 



218 024212 012702 

219 024216 020102 

220 024220 001420 

221 024222 01S70S 

222 024226 052703 

223 024232 001405 

224 024234 
024234 104455 
024236 000157 
024240 027424' 
024242 011724' 

225 024244 
024244 104444 

226 024246 005237 

230 0242S2 
024252 104456 
024254 000160 
024256 027511' 
024260 0117S6' 

231 024262 
024262 104406 

232 024264 012737 

233 024272 012737 
UP SPACE REVERSE 

234 024300 012704 

235 024304 010465 

236 024310 004737 

237 024314 016501 

238 024320 012702 

239 024324 020102 

240 024326 001406 

241 024330 005237 

245 024334 
024334 104456 
024336 000161 
024340 027342' 
024342 011736' 

246 024344 
024344 104406 

247 024346 01J737 

248 024354 012737 

249 024362 012704 

250 024366 010465 

251 024372 004737 

252 024376 016501 

253 024402 012702 
354 024406 020102 

255 024410 001406 

256 024412 005237 

260 024416 
024416 104456 
024420 000162 
024422 027342' 
024424 011736' 

261 024426 
024426 104406 

262 024430 013701 

263 024434 010102 



000200 



026120- 
000004 



002214' 



411: 



75«! 



000001 026222' 
140410 026220' 

026220* 

000000 

016140' 

000002 

000200 



002214' 



1751: 



003116* 026222' 

141011 026220* 

026220* 

000000 

016140' 

000002 

100204 



002214' 



rco HA 


1 11 • ■11 

lO ! 33 




"•WW 






CMP 


Rl ,R2 


lARE THEY EQUAL 


BEQ 


75« 


iBR, ir OK 


MOV 


T296fR-6.RS 


»PICK UP XTSO 


BIT 


•4.RS 


lis UNIT WRITE -LOCKED? 


BEQ 


41» 


iNO. PROCEED WITH NORMAL ERROR 


ERROT 


ERRNO . T29ULK . SF IMSG 


1 .APE IS WRITE LOCKED 



SEO 092 



OOCLN 
INC 

ERRHRD 



CKLOOP 

MOV 
MOV 

MOV 

MOV 

JSft 

MOV 

MOV 

CMP 

BEQ 

INC ^ 

ERRHRD 



FATFLG 

ERRNO. T29URT .PKTSSR 



•1.T29RB 
•140410. T29PK3 

•T29PK3.R4 

R4.TS0B(R5) 

PC.UAITF 

TSSR(R5).R1 

•SSR.R2 

R1.R2 

1751 

FATFLG 

ERRNO. T29HDE .PKTSSR 



TRAP CtEROF 

.WORD Ul 

.WORD T29WLK 

.WORD SFIMSG 

lOROP IT 

TRAP CtDCLN 

I ERROR COUNT 
iTSSR INCORRECT AFTER WRITE DATA 

TRAP CIER>«0 

.WORD 112 

.WORD T29WRT 

.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CtC-Pl 
I NUMBER OF RECORDS TO SPACE OVER 
iSET UP COMMAND IN APCKET 

iSET UP R4 WITH PACKET ADDRESS 

I ISSUE COmAND 

iWAIT FOR SSR TO SET 

•GET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IF OK 

lERROR COUNT 
I TSSR INCORRECT AFTER READ DATA 

TRAP CIER^ 
.WORD lis 
.WORD T29W0E 
.WORD PKTSSR 



CKLOOP 




•LOOP IF SELECTED 






TRAP CtCLPl 


MOV 


FREE.T29RB 


1 ADDRESS OF BUFFER 


MOV 


•141011. T29PK3 


iWRITE TAPE MARK RETRY .ACK.CVC-1 COMD. 


NOV 


•T29PK3.R4 


•SET UP R4 WITH PACKET ADDRESS 


MOV 


R4.TSDB(R5) 


(ISSUE COMMAND 


JSR 


PC.UAITF 


IWAIT FOR SSR TO SET 


NOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


KOV 


•SSR!SC!BIT2.R2 


•SET UP EXPECTED 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


IBOt 


iBR. IF OK 


INC 


FATFLG 


1 ERROR COUNT 


ERRHRD 


ERRNO. T29WDE .PKTSSR 


iTSSR INCORRECT AFTER READ DATA 



026126' 



1801: CKLOOP 

MOV 
MOV 



T29BFR*14.Rl 
R1.R2 



iLOOP IF SELECTED 

iCET XST3 STATUS WORD 
I SET UP EXPECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CtERHRD 
114 

T29w0t 
PKT<;SR 

CICLPl 



C8 



TEST 1 HARDWARE TEST 1 8 TEST riACRO H1115 
TEST 1: WRITE TAPE HARK RETRT 



01 FEB 64 16:55 



SEQ 0^; 



271 



264 024456 

265 024442 
260 024444 
267 024446 

024452 
024452 
024454 
024456 
024460 
2/2 024462 

273 024462 
024462 
024462 

274 024464 

275 024472 

276 024474 

277 024500 
278 

279 
280 
261 
262 
263 
264 
265 
266 
287 

266 024500 
024500 
024500 

269 024502 

290 024506 

291 024512 

292 024516 

293 024524 

294 0245S0 

295 0245S2 
0245S2 
024536 
024540 
024544 
024546 
0245S2 
024554 
024560 

296 024562 

297 024566 
296 024570 

302 024574 

303 024576 
024576 
024600 
024602 
024604 

304 024606 

305 024614 
S06 024620 



052702 000001 

020102 

001406 

^05237 002214' 

104456 

000163 

0315O4' 

015364* 



104405 

023727 002214- 000017 
103402 

004737 017074- 



1901; 



BIS 
CMP 
BEQ 
INC 

FRRHRO 



ENDSUB 



•eiT0.R2 

R1.R2 

1901 

FATFLC 

ERRNO . T 29R IB . E XPREC 



CMP 
BLO 
JSR 



FATFLG.#15. 
9991 

PC.CKOROP 



•SET THE RIB BIT 
lARE THEY EQUAL 
iBR. IF EQUAL CGOOO) 
(ERROR COUNT 
iNEF SHOULD BE SET 

TRAP CtERMRD 
.WORD 115 
.WORD T29RIB 
.UORO EXPRCC 

!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10040: 

TRAP CIESUB 
tIS ERROR COUNT AT 25 
I BR, IF LESS THAN 25 
,TRY TO DROP THE UNIT 



9991 ; 
I • 

I TEST I. SUBTEST 3 

'verifies THAT A WRITE TAPE MARK RETRY COMMAND TERMINATES 

iPROPERLY AND WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A READ REVERSE 

iCOMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK-1). 

I 

I - 



104402 

004737 031726' 
004737 032020' 
004737 032062' 
012737 023420 026260' 
004737 015664' 
103426 

012727 000250 
000000 

013727 002116' 
000000 

005367 177772 
001375 

005367 177756 
001367 

005337 026260' 
001356 

005237 002214* 
010001 

104455 
000164 
003642' 
011724- 

015757 002174* 026110' 
012704 026070* 
004757 010552' 



lot! 



BGNSUB 



JSR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



PC.T29REST 

PC.T29RT2 

PC.T29RT5 

#10000. ,T290LY 

PC.SOFINIT 

201 

250 



CtBSUB 



201 1 



DEC 
BNE 
INC 
MOV 
ERROF 



MOV 
MOV 
JSR 



T290LT 
101 

FATFLC 
RO.Rl 

ERRNO . SF lERR . SF IMSG 



UNITN.T29DSW 

«T29PACKET.R4 

PC.WRTCHR 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T1.5: 

TRAP 

I SET COMMAND PACKET 
> SET UP OTHER COMMAND PACKET 
I SET UP OThCR COrtlAND PACKET 
I SET UP DELAY ROUTINE 
iOO INITIALIZE ON CONTROLLER 
>6R IF INIT WAS OK 
I DELAY ABOUT .25 SECONDS 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
6NE 

iBUMP DELAY ROUTINE DOWN 
iBR. IF MORE DELAY TIME LEFT 

I ERROR COUNT 
(CONTENTS OF TSSR REGISTER 
(FATAL ERROR TSSR WAS NOT OK 

TRAP 

.WORD 

.WORD 

.WORD 

(SET UP DRIVE NUMBER 
(SUBROUTINE NEEDS PACKET ADDRESS 
(ISSUE WRITE CHARACTERISTICS 



♦250. (PC). 
0 

L«DLY.(PC). 
0 

-6(PC) 
. -4 

-22(PC) 
.20 



CIERDF 
116 

SFIERR 
SFIMSG 



D8 

TEST I HARDWARE TEST 1 6 TEST MACRO Ml I 13 01 FEB 84 18:55 SCQ 094 

TEST 1: WRITE TAPE MARK RETRY 



507 


024624 


103407 






BCS 


25» 


iBR. IF COMMAND ISSUED OK 




308 


024626 


005237 


002214' 




INC 


FATFLG 


1 ERROR COUNT 




512 


024652 


010001 






HOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 




313 


024634 








ERRHRD 


ERRNO. WRTMSG. SF IMSG 


iWRITE CHARACTERISTISC FAILED 






024654 


104456 










TRAP 


CtERKRD 




024656 


000165 










.WORD 


117 




024640 


005046' 










.WORD 


WRTMSG 




024642 


011724' 










.WORD 


SFIMSG 


314 


024644 






25t: 


CKLOOP 




iLOOP IF SELECTED 






024644 


104406 










TRAP 


CICLPI 


315 


024646 


004757 


010704' 




JSR 


PC. RE WIND 


iCALL TAPE REMIND COrtlANO 




316 


024652 


105411 






BCS 


50 1 


iBR. IF NO PROBLEM 




317 


024654 


016501 


000002 




MOV 


TSSR(R5).R1 


iGET TSSR 




310 


024660 


010004 






MOV 


R0.R4 


iSAVE PACKET ADDRESS 




519 


024662 


005257 


002214* 




INC 


FATFLG 


•ERROR COUNT 




533 


024666 








ERRHRD 


ERRNO. T29RUN.PKTSSR 


1 REWIND NOT ACCEPTED 






024666 


104456 










TRAP 


CtERHRO 




024670 


000166 










.WORD 


110 




024672 


050065' 










.WORD 


T29RWN 




024674 


011736' 










.WORD 


PKTSSR 


324 


024676 






50 >: 


CKLOOP 




iLOOP IF SELECTED 






024676 


104406 










TRAP 


OCL^l 


325 


024700 


015701 


026120' 




MOV 


T29BFR»6.R1 


iPICK UP XSTO 




326 


024704 


010102 






MOV 


R1.R2 


iSET UP EXPECTED 




327 


024706 


052702 


000002 




BIS 


•BIT1.R2 


iSET BOT BIT IN EXPECTED 




328 


024712 


020102 






CMP 


R1.R2 


iDOES EXP - REC'D 




329 


024714 


001406 






BEQ 


40> 


iBR. V EQUAL (OK) 




330 


024716 


005257 


002214* 




INC 


FATFLG 


1 ERROR COUNT 




334 


024722 








ERRHRD 


ERRNO. T29B0T .EXPREC 


iTAPE NOT AT BOT AFTER REWIND 






024722 


104456 










TRAP 


CtERHRO 




024724 


000167 










.WORD 


119 




024726 


027556' 










.WORD 


T2980T 




024750 


015364* 










.WORD 


EXPREC 


335 


024752 






40>: 


CKLOOP 




iLOOP IF SELECTED 






024752 


104406 










TRAP 


CICLPI 


336 


024754 


012737 


140011 


026220* 


MOV 


•140011. T29PK5 


tWRITE TAPE MARK.ACK.CVC-1 COMMAND 


337 


024742 


012704 


026220' 




MOV 


•T29PK3.R4 


tSET UP R4 WITH PACKET ADDRESS 




330 


024746 


010465 


000000 




MOV 


R4.TSDB(R5) 


1 ISSUE C0(«1AN0 




339 


024752 


004757 


016140' 




JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 




340 


024756 


016501 


000002 




MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 




341 


024762 


012702 


000200 




MOV 


♦SSR.R2 


iSET UP EXPECTED 




54? 


024766 


020102 






CMP 


R1.R2 


lARE THEY EQUAL 




343 


024770 


001406 






BEQ 


701 


tBR. IF OK 




344 


024772 


005257 


002214' 




INC 


FATFLG 


1 ERROR COUNT 




340 


024776 








ERRHRD 


ERRNO . T29UDC . PK T SSR 


sTSSR INCORRECT AFTER WRITE TAPE HARK 




024776 


104456 








TRAP 


C»ERHRD 




025000 


000170 










.WORD 


120 




025002 


050457' 










.WORD 


T29U0C 




025004 


011756' 










.UORD 


PKTSSR 


549 


025006 






70<: 


CKLOOP 




iLOOP IF SELECTED 






025006 


104406 










TRAP 


CJCLPl 


550 


025010 


012705 


000001 


150»: 


MOV 


♦1..R5 


1 NUMBER OF RECORDS TO WPITE TM 




551 


025014 


012757 


141011 


026220' 


MOV 


♦141011, T29PK5 


1 WRITE TAPE MARK RETRY .ACK .CVC - 


1 C OHM AND 


552 


025022 


012704 


026220' 




MOV 


•T29PK5.R4 


iSET UP R4 WITH PACKET ADDRESS 




555 


025026 


010465 


000000 


155 »: 


MOV 


R4.TS0B(R5) 


1 ISSUE COMMAND 




554 


025052 


004757 


016140' 




JSR 


PC.WAITF 


lUAIT FOR SSR TO SET 




555 


025056 


016501 


000002 




MOV 


TSSR(R5),Rl 


iPICK UP TSSR 





E3 



1EST 
TEST 



HAROyARE TEST 1-8 TEST MACRO Mil IS 
URITE TAPE NARK RETRY 



01 -FEB 04 18:55 



SEQ 0% 



356 025042 

357 025046 

358 025050 

359 025052 

363 025056 
025056 
025060 
025062 
025064 

364 025066 
025066 

365 025070 

366 025076 

367 025104 

368 025110 

369 025114 

370 025120 

371 025124 

372 025130 

373 025132 

374 025134 

378 025140 
025140 
025142 
025144 
025146 

379 025150 
025150 

360 025152 

381 025156 

382 025160 

383 025164 

384 025166 

385 025170 

389 025174 
025174 
025176 
025200 
025202 

390 025204 
025204 

391 025206 
025206 
025206 

392 025210 

393 025216 

394 025220 

395 025224 
396 

397 
396 
399 
400 
401 
402 
403 
404 



012702 000200 

020102 

001406 

005237 002214' 

104456 

000171 

0S0457' 

011736' 

104406 

012737 140401 026220' 

013737 003116' 026222' 

012704 026220' 

010465 000000 

004737 016140' 

016501 000002 

012702 100204 
020102 
001406 

005237 002214' 

104456 

000172 

031423' 

011736' 

104406 

013701 026120' 
010102 

052702 100000 

020102 

001406 

005237 002214' 

104456 

000173 

031604' 

015364* 

104406 



104403 

023727 002214' 000017 
103402 

004757 017074' 



165*: 



222*: 



226*: 



MOV ♦SSR,R2 

CMP R1.R2 

BEQ 165* 

INC FATFLG 

ERRHRD ERRNO . T29U0C . PK TSSR 



iSET UP EXPECTED (SSR ONLY) 
I WAS STATUS GOOD 
I BR. IF TERMINATION WAS GOOD 

i ERROR COUNT 
I TSSR NOT CORRECT AFTER URT TAPE M. 



TRAP 
.UORO 
.WORD 
.WORD 



CKLOOP 




I LOOP IF SELECTED 






TRAP 1 


MOV 


♦140401, T29PK 5 


{READ RE VERSE. ACK. COMMAND 


MOV 


FREE . T29RB 


iNUreER OF RECORDS TO SPACE BACK 


MOV 


♦T29PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


MOV 


R4,TSD6CR5) 


1 ISSUE COMMAND 


JSR 


PC.HAITF 


lUAIT FOR SSR TO SET 


MOV 


TSSRCR5}.R1 


iGET TSSR CONTENTS 


MOV 


•SSR!SC!BIT2.R2 


tSET UP EXKECTED 


CMP 


R1.R2 


(ARE THEY EQUAL 


BEQ 


222* 


.?R. IF OK 


INC 


FATFLG 


1 ERROR COUNT 


ERRHRO 


ERRNC . T29RDG . PKTSSR 


iTSSR INCORRECT AFTER SPACE CMD. 



CtERMRD 
121 

T29VOC 
PKTSSR 

C*CLP1 



TRAP 
.UORD 
.UORD 
.WORD 



CKLOOP 




J LOOP IF SELECTED 






TRAP 


MOV 


T29BFR*6.R1 


iPICK UP XSTO 


MOV 


R1.R2 


tSET UP EXPECTED 


BIS 


«6IT15.R2 


(TMK SHOULD BE SET 


CMP 


R1.R2 


lis TMK SET 


BEQ 


2261 


iBR. IF TMK HAS SET CrOOO) 


INC 


FATFLG 


t ERROR COUNT 


ERRHRD 


ERRNO. T29RRN.EXPREC 


ilMK NOT SET AFTER READ REV 



C«ERHRD 
122 

T29RDG 
PKTSSR 

C*CLP1 



CKLOOP 
ENOSUB 



CHP 
BLO 
JSR 



FATFLG. •IS. 
999* 

PC.CKOROP 



TRAP C*ERHRO 
.UORD 123 
.WORD T29RRN 
.UORD EXPREC 

tLOOP IF SELECTED 

TRAP CICLPl 
!<<<<«<<<<«< END SUBTEST >*>>>>>>>>> 
L10041: 

TRAP C*ESUB 
tIS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



999$! 
I ♦ 

I TEST 1, SUBTEST 4 

'{VERIFIES THAT THE SPACE-REVERSC PORTION OF THE URITE TAPE MARK 

iRETRY OPERATION IS PERFORMED BY REWINDING THE TAPE. ISSUING SEVERAL 

I URITE TAPE MARK RETRY COMMANDS IN SUCCESSION. THEN ISSUING TWO SPACE 

I RECORDS REVERSE COMMANDS IN SUCCESSION. THE SECOND SPACE RECORDS REVERSE 



rs 



TEST I HARDWARE TEST I 8 TEST MACRO M1115 
TEST 1: WRITE TAPE HARK RETRY 



01 -FEB 64 ld:55 



SEQ 096 



405 
406 
407 

406 025224 
025224 
025224 

409 025226 

410 025232 

411 025236 

412 025242 

413 025250 

414 025254 

415 025256 
025256 
025262 
025264 
025270 
025272 
025276 
025300 
025304 

416 025336 

417 025312 
416 025314 

422 025320 

423 025322 
025322 
025324 
025326 
025330 

424 025332 

425 025340 

426 025344 

427 025350 
426 025352 

432 025356 

433 025360 
025360 
025362 
025364 
025366 

434 025370 
025370 

435 025372 
456 025376 
437 025400 

436 025404 
439 025406 

443 025412 
025412 
025414 
025416 
025420 

444 025422 
025422 

445 025424 

446 025430 



iCOrriANO SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET. 



104402 
004737 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
OOOOOO 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 



031726' 
032020' 
032062' 

023420 026260' 
015664' 



000250 

002116' 

177772 

177756 

026260' 

002214' 



lOt: 



104455 
000174 
003642' 
011724' 

013737 002174* 026110' 
012704 026070' 
004737 010552' 
103407 

005237 002214' 
010001 

104456 

000175 

005046' 

011724' 

104406 

004757 010704' 
103411 

016501 000002 
010004 

005237 002214' 

104456 

000176 

030065' 

011736' 

104406 

013701 026120' 
010102 



20»! 



23t! 



30 1: 



BGNSUB 



JSR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



DEC 
BNE 
INC 
MOV 
ERROf 



MOV 
MOV 
JSR 
BCS 
INC 
MOV 

ERRHRO 



CKLOOP 

JSR 
BCS 
MOV 
MOV 
INC 

ERRHRD 



CKLOOP 

MOV 
MOV 



PC.T29REST 

PC.T29RT2 

PC.T29RT5 

•10000. .T2901.Y 

PC.SOFINIT 

20$ 

250 



T29DLY 
10$ 

FATFLG 
RO.Rl 

ERRNO . Sf lERR . SF IMSG 



UNITN.T290SW 
#T29PACKCT.R4 
PC.WRTCHR 
25$ 

FATFLG 
RO.Rl 

ERRNO. WR TMSG . SF IMSG 



PC, REWIND 
50$ 

TSSR(R5).R1 
R0,R4 

FATFLG 

ERRNO . T29RWN . PK T SSR 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T1.4s 

TRAP CfBSUB 

I SET COMMAND PACKET 
1 SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
I SET UP DELAY ROUTINE 
I DO INITIALIZE ON CONTROLLER 
I BR IF INIT WAS OK 
i DELAY ABOUT .25 SECONDS 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 

iBUMP DELAY ROUTINE DOWN 
iBR. IF MORE DELAY TIME LEFT 

I ERROR COUNT 
{CONTENTS OF TSSR REGISTER 
I FATAL ERROR TSSR WAS NOT OK 

TRAP 

.WORD 

.WORD 

.WORD 

sSET UP DRIVE NUMBER 

t SUBROUTINE NEEDS PACKET ADDRESS 

I ISSUE WRITE CHARACTERISTICS 

sBR. IF COrtlANO ISSUED OK 
I ERROR COUNT 

iSAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC FAILED 

TRAP C$ER»«D 
.WORD 125 
.WORD WRTMSG 
.WORD SFIMSG 

iLOOP IF SELECTED 

TRAP C$CLP1 
I CALL TAPE REWIND COMMAND 
J BR, IF NO PROBLEM 
iGET TSSR 

tSAvE PACKET ADDRESS 
I ERROR COUNT 
(REWIND NOT ACCEPTED 



•250.(PC). 
0 

LtOLY.CPO- 
0 

-6(PC) 
. -4 

-22(PC) 
.20 



C$ERDF 
124 

SFIERR 
SFIMSG 



T296FR*6,R1 
R1.R2 



tLOCP IF SELECTED 

iPICK UP XSTO 
(SET UP EXPECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ER>«D 
126 

T29RWN 
PKTSSR 

C»CLPl 



G8 

TEST 1 - HAROUARE TEST 1 8 TEST MACRO MIUS 01 FE8-84 18:55 SEQ 097 

TEST 1: URITE TAPE HARK RETRY 



447 


025432 


052702 


000002 






BIS 


«6IT1.R2 


iSET BOr BIT IN EXPECTED 




448 025436 


020102 








CMP 


R1.R2 


iDOES EXP - REC'D 




449 


025440 


001406 








BEQ 


40* 


iBR. IF EQUAL (OK) 




450 025442 


005257 


002214' 






INC 


FATFLG 


1 ERROR COUNT 




454 


025446 










ERRHRO 


EnRN0.T29e0T.EXPREC 


iTAPE NOT AT BOT AFTER REUINO 






025446 


104456 












TRAP 


CIERHRD 




025450 


000177 












.UORO 


127 




025452 


027556* 












.UORO 


T29B0T 




025454 


015364' 












.UORO 


EXPREC 


455 


025456 








40«: 


CKLOOP 




iLOOP IF SELECTED 






025456 


104406 












TRAP 


CICLPl 


456 


025460 


012737 


140011 


026220' 




MOV 


♦14001 1,T29PK3 


tURITE TAPE MARK.ACK.CVC-1 COMMAND 


457 


025466 


012704 


026220* 






MOV 


♦T29PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 




458 


025472 


010465 


000000 






MOV 


R4.TS06(R5) 


1 ISSUE COMMAND 




459 025476 


004737 


016140' 






JSR 


PC.UAITF 


iMAIT FOR SSR TO SET 




460 


025502 


016501 


000002 






MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 




461 


025506 


012702 


000200 






MOV 


•SSR.R2 


iSET UP EXPECTED 




462 


025512 


020102 








CMP 


R1.R2 


tARE THEr EQUAL 




463 


025514 


001406 








BEQ 


70* 


iBR. IF OK 




464 


025516 


005237 


002214* 






INC 


FATFLG 


lEPROR COUNT 




468 


025522 










ERRHRO 


ERRNO . T29W0C , PKTSSR 


iTSSR INCORRECT AFTER URITE TAPE HARK 




025522 


104456 












TRAP 


CtERHRO 




025524 


000200 












.UORO 


128 




025526 


030457- 












.UORO 


T29U0C 




025530 


011736' 












.UORD 


PKTSSR 


469 


025532 








70<: 


CKLOOP 




tLOOP IF SELECTED 






025532 


104406 












TRAP 


C$CLP1 


470 


025534 


012703 


000012 




150>: 


MOV 


♦10. .R3 


iNUrOER OF RECORDS TO URITE TM 




471 


025540 


012737 


000001 


026222* 




MOV 


♦1.T29RB 


iSET UP PACKET 




472 


025546 


012737 


141011 


026220' 




MOV 


♦141011. T29PK3 


lURITE TAPE HARK RETRr .ACK.CVC- 


1 COHMANO 


473 


025554 


012704 


026220* 






MOV 


♦T29PK3.R4 


tSET UP R4 UITH PACKET ADDRESS 




474 


025560 


010465 


000000 




155 >: 


MOV 


R4.TS0B(R5) 


1 ISSUE COMMAND 




475 


025564 


004737 


016140* 






JSR 


PC.UAITF 


tUAIT FOR SSR TO SET 




476 


025570 


016501 


000002 






MOV 


TSSR(R5).R1 


I PICK UP TSSR 




477 


025574 


012702 


000200 






MOV 


♦SSR.R2 


jSET UP EXPECTED (SSR ONLY) 




478 


025600 


020102 








CMP 


R1.R2 


tUAS STATUS GOOD 




479 


025602 


001406 








BEQ 


165t 


tBR. IF TERMINATION UAS GOOD 




480 


025604 


005237 


002214' 






INC ^ 


FATFLG 


1 ERROR COUNT 




484 


025610 










ERRHRO 


ERRNQ. T29UDC. PKTSSR 


iTSSR NOT CORRECT AFTER URT ^ape M. 




025610 


104456 












TRAP 


CIERHRD 




025612 


000201 












.UORO 


129 




025614 


030457' 












.UORO 


T29U0C 




025616 


011736' 












.UORO 


PKTSSR 


485 


025620 








165 1: 


CKLOOP 




iLOOP IF SELECTED 






025620 


104406 












TRAP 


c»clpi 


486 


025622 


005303 








DEC 


R3 


iBUMP COUNTER OOUN 




*87 


025624 


001355 








BNE 


155 1 


iBR. IF LESS THAN IC TAPE MARKS 




486 


025626 


012737 


140410 


026220' 




MOV 


•140410. T29PK3 


t SPACE RE VERSE. ACK.CVC-1. COMMAND 


489 


025634 


012737 


000001 


026222' 




MOV 


♦1.T29RB 


1 NUMBER OF RECORDS TO SPACE BACK 


490 


025642 


012704 


026220' 






MOV 


♦T29PK3.R4 


iSET UP R4 UITH PACKET ADDRESS 




491 


025646 


010465 


000000 






MOV 


R4.TS0B(R5) 


1 ISSUE COHHAND 




49? 


025652 


004737 


016140' 






JSR 


PC.UAITF 


lUAIT FOR SSR TO SET 




493 


025656 


016501 


000002 






MOV 


TSSRCR5).R1 


iGET TSSR CONTENTS 




494 


025662 


012702 


100204 






MOV 


♦SSR!SC!BIT2.R2 


I SET UP EXPECTED 




495 


025666 


020102 








CMP 


R1.R2 


lARE THEY EQUAL 




496 


025670 


001406 








BEQ 


222* 


tBR. IF OK 




497 


025672 


005237 


002214' 






INC 


FATFLG 


1 ERROR COUNT 





H8 



TEST 
TEST 



1: 



HAMHMAE TEST 1-8 TEST riACRO HlllS 
URITE TAPE MARK RETRY 



01 FEB 84 18:55 



501 025676 
0^76 
025700 
025702 
025704 

502 025706 
025706 

505 025710 

504 025716 

505 025724 

506 0257SO 

507 025754 
50a 025740 

509 025744 

510 025750 

511 025752 

512 025754 

516 025760 
025760 
025762 
025764 
025766 

517 025770 
025770 

518 025772 

519 025776 

520 026000 

521 026004 

522 026006 
525 026010 

527 026014 
026014 
026016 
026020 
026022 

528 026024 
026024 

529 026026 
026026 

550 026050 
026050 
026050 

551 026052 

552 026040 
555 026042 
554 026046 
555 

556 
557 
558 

559 026046 

540 026052 

541 026054 
54^' 026060 

026060 
026062 

545 



104456 

000202 

027542' 

011756- 

104406 

012757 100410 026220' 

012757 000005 026222* 

012704 026220' 

010465 000000 

004757 016140' 

016501 000002 

012702 100204 
020102 
001406 

005257 002214' 

104456 

000205 

051425' 

011756' 

104406 

015701 026126' 
010102 

052702 000001 

020102 

001406 

005257 002214' 

104456 
000204 
051504' 
015564' 

104406 

104406 



104405 

025727 002214' 000017 
105402 

004757 017074' 



004757 016550' 
105002 

000157 025526' 

104452 
00405C 



222 1: 



260*: 



2701: 
550t! 



9991: 



1651: 



ERRHRD ERRN0.T29WDE.PKTSSR 



CKLOOP 
CKLOOP 
ENOSUB 



CMP 

bLO 
JSR 



JSR 
BCC 
JMP 
EXIT 



SEQ 098 



iTSSR INCORRECT AFTER SPACE CMO. 

TRAP CiFRHRD 
.WORD 150 
. WORD T29W0E 
.WQRO PKTSbR 



CKLOOP 




iLOOP IF SELECTED 

TRAP C»CLP 


MOV 


♦100410. T29PK5 


1 SPACE RE VERSE. ACK. COfflANO 


MOV 


«5.T29RB 


1 NUMBER OF RECORDS TQ SPACE BACK 
iSET UP R4 WITH PACKET ADDRESS 


MOV 


♦T29PK5.R4 


MOV 


R4.TS0B(R5) 


1 ISSUE COMMAND 


JSR 


PC.UAITF 


lUAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


iCET TSSR CONTENTS 


MOV 


«SSR!SC!BIT2.R2 


iSET UP EXPECTED 


CMP 


R1,R2 


lARE THEY EQUAL 


BEQ 


260* 


iBR, IF OK 


INC 


FATFLG 


{ERROR COUNT 


ERRHRO 


ERRNO. T29RDG.PKTSSR 


iTSSR IhfORRECT AFTER SPACC REV CMO. 



TRAP 
.WORD 
.UORO 
.WORD 



CKLOOP 




;L00P IF SELECTED 






TRAP 


MOV 


T29BFR»14.R1 


iPICK UP XST5 


MOV 


R1.R2 


I SET UP EXPECTED 


BIS 


•BIT0.R2 


iRIB SHOULD BE SET 


CMP 


R1,R2 


lis RIB SET 


BEQ 


270* 


sBR. IF RIB UAS SET CGOOD) 


INC 


FATFLG 


: ERROR COUNT 


ERRHRO 


ERRNO. T29RIB .EXPREC 


iTMK NOT SET AFTER READ REV 



CtERHRO 
151 

T29R0G 
PKTSSR 

C»CLP1 



FATFLG. »15. 
999$ 

PC.CKOROP 



PC.TSTLOOP 
165* 
T29L00P 
TST 



TRAP CtERHRO 

.UORO 132 

.UORO T29flIB 

.UORO EXPREC 

iLOGP IF SELECTED 

TRAP C»CLPl 

(LOOP IF SELECTED 

TRAP C»CLPl 
i<<<<<<<<<<< END SUBTEST >>>>>>>>>>> 
L 10042: 

TRAP C*£SUe 
;IS ERROR COUNT AT 25 
I BR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



I 00 UE NEED TO ITERATE TEST 
iBR. IF NO LOOP REQUIRED 
{EXECUTE AGAIN 
I ALL DONE THIS TEST 

TRAP CIEXIT 
.UORO L 10056 



18 
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TEST I 


: UNITE 


TAPE WAHK He THY 










C M M 






1 • 








C A C 
C A ^ 






(LOCAL STORAGE 


CTAD TUTC TCCT 

rOH Tnib TEST 




548 


026064 




) - 


BLKB 


lO-< • - 'bV2&r > 




550 


026070 




T29PACKFT: 




t COnnANO PRCKt 1 r UN TtST 


551 


026070 


014004 




.WORD 


• A AA^ 


tlMITL CHARACTERISTICS COMMAND, WITH v/C"l, ACK 


552 


026072 


4 AA f 

026100 




.WORD 




tAODRESS (Jr CHARACTERISTICS Bi.OCK 


CSV 


0260 f4 


AAAAAA 

oooooo 




.WORD 


A 




CCA 

554 


026076 


AAAA4 ^ 

000012 




.WORD 


^ A 

lO . 


|5IARIINb VALUE Or BLOCK SIZE 


555 






T290ATA: 






((.HnNAt icNlal Its D^lA BLOCK 


556 


026100 


A^£ 1 1 O ( 

026L12 




.WORD 




. AAAOCCC AP MCCCA/^ Ol iPCCO 
tHUUncss ncbsHbC BLT r En 




026102 


AAAAAA 

OOOOOO 




.WORD 


A 




CCA 

330 


A^^ 1 /\A 


AAAAOA 

00002* 




.WORD 


20. 


.1 Cktf^Tu MCCCA/^ Dl f CCA 

tLcNulH ntabAbc DUrrtH 


ceo 

559 


A*%^ t A£ 

026 106 


AAAAAA 

OOOOOO 




.WORD 


C 




3O0 


A^^ 1 1 A 

026110 


AAAAAA 

OOOOOO 


T290SU: 


.WORD 


0 


. CCI C/*T AOTuC A 

tbcLcLI UHXVe O 


cx.« 
30l 


OcDile 




T29BFR: 


.BLKU 


25. 


.MCCCA/^ OlffCCD 

incasAbc tn^rcN 


CJL9 
302 






i 








300 






(WRITE SUBSYSTEM MEMORY COMMAND PACKET 




C^A 
30* 






i 








C^^ 


A^^ 1 7A 






m kr 






C^M 


A^AOAA 




T29PK2: 








c^o 
307 


A^^'^AA 


lOUOOD 




.WORD 


100006 


.UOTTC CI n CVC MCM ^AMMAklA Akin A^l/ 


C7/% 
3 rU 




020230 




.WORD 


T29BF2 




C71 

3 r 1 


A^^^AA 

02o204 


AAAtfV\A 
OOOOOO 




.WORD 


0 




3 f e 


026206 


AAAAAA 

000006 




.WORD 


6. 


.CT7C AC AATA DAI^VC T 














3 r 3 


A 






.BLKB 


l0-< . -TSV267> 




C77 
3 f f 


026220 




T29PK5: 








C7* 

3 f O 


026220 


t AAAAC 

140005 




.WORD 


140005 


}t#<iTc lAPt nAKK HtTRT CUMMAND, CVCI AND ACK 


C70 

3 79 


026222 




T29Re: 








30U 


A^^ 

026222 


AAV « « £ 1 

003116 


T29UB: 


.WORD 


FREE 


lADOnESS Or Wtllt BLrrtR 


ca 1 

301 


V26224 


AAAAAA 

OOOOOO 




.WORD 


0 




CAS 

30e 


026226 


AAAAAA 

OOOOOO 


T29SZ: 


.WORD 


0 


.CT7C AC D< f CCD ^CvTCkiT^ 


395 








.EVEN 










t 








^AC 

303 






I 








300 














^A7 

30 r 






T29BF2; 








CAA 

300 


A^X ^ VA 

026230 


010 


T29eS0: 


.BYTE 


10 


tBSELO AREA 


SAO 




^AA 


T29eSl: 


.BYTE 


200 


.DCCI 1 ADC A 


590 


026232 


OOOOOO 


T29S2: 


.WORD 


0 


iSEL 2 AREA 


591 


026234 


OOOOOO 


T29S3: 


.WORD 


0 


(DATA AREA 








t 














t 
















.EVEN 












(TAPE MOTION PACKET COMMAND VALUES 




f 




1 A AAA« 


T29RN: 


.WORD 


'.40001 


.DC An HAT A 


598 


026240 


140401 


T29UDR: 


.WORD 


140401 


(READ DATA REVERSE 


599 


026242 


141001 


T29C0N: 


.WORD 


141001 


(READ PREVIOUS OPP>0 


OvV 


A3JLOAA 


1 X. 1 AA t 




.WORD 


161001 




601 








.WORD 


141401 


lURITE TAPE MARK RETRY NEXT OPP-0 


602 


0262S0 


161401 




.WORD 


161401 


(WRITE TAPE MARK RETRY NEXT OPP'l 


603 
604 


026252 


177777 




.WORD 


177777 


(END OF DATA 


605 














606 


026254 


OOOOOO 


f 29CNT : 


.WORD 


0 


(TAPE RECORD COUNTER STORAGE AREA 



J8 



TEST 1 HARDWARE TEST 1 8 TEST MACRO HlllS 
TEST 1: WRITE TAPE MARK RETRf 



01 -FEB S4 18:55 



SEO 100 



607 

608 026256 

609 026260 
610 

611 
612 
613 
614 
615 
616 

617 026262 

618 026503 

619 026410 

620 026500 

621 026547 

622 026663 



623 
624 



026777 
027061 

625 027131 

626 027206 

627 027267 
626 C27542 

629 027424 

630 027511 

631 027556 

632 027623 
635 02771J 

654 050007 

655 050065 

656 050154 

657 030207 

658 050275 

659 050550 

640 050457 

641 050551 

642 030624 
645 050716 

644 051005 

645 051067 

646 051151 

647 051257 

648 051525 

649 051425 

650 031504 

651 051604 

652 051677 
655 

654 
655 
656 
657 
658 
659 
660 

661 051726 

662 051726 
665 051752 



000000 
OOOOOO 



104 
124 

127 
124 
127 

127 

120 
122 
124 
111 
127 
124 
052 
124 
124 
104 
127 
124 
122 
122 
124 
104 
124 
124 
105 
124 
127 
122 
122 
122 
122 
104 
124 
127 
124 
127 



162 
-41 

122 
123 
122 

122 

117 
111 
123 
154 
122 
125 
052 
125 
141 
141 
122 
125 
145 
101 
125 
162 
125 
125 
126 
125 
122 
145 
145 
145 
145 
141 
125 
122 
115 
162 



151 
160 
111 
125 
111 



123 
102 
125 
154 
111 
125 
052 
125 
160 
164 
111 
123 
167 
115 
125 
151 
125 
125 
105 
102 
111 
141 
141 
165 
141 
164 
125 
111 
115 
151 



T29RS2: ,UOR0 
T290LY: .WORD 



> » 



(RECORD STORAGE SIZE AREA 
iDELAf COUNTER STORAGE AREA 



J LOCAL TEXT MESSAGES FOR TEST 



T290FL 
T29UNG 
T29NEF 
T29R0F 
T29RRF 



.ASCI2 
•ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



111 T29RRG: .ASCIZ 



T29SC: 
T29LCR 
T29U0F 
T29L0Q 
T29SSR 
T29UDE 
T29ULK 
T29URT 
T29B0T 
T290TA 
T2960T 
T29TM: 
T 29RW 
T29RNC 
T29AH3 
T29Cr7 
T29gD0 
T29UDC 
T29VCK 
T29BA: 
T29USS 
T29L0N 
T29LGP 
T29PBP 
T29TRL 
T29NEQ 
T29RDG 
T29RIB 
T29RRN 
TST29ID 

t » 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



Dpiv« !• offline- 
Top* Poo;«:;on Iocorp«ct Aft«r WRITE TAPE MARK RETRY Previous COPP-D* 
WRITE TAPE MARK RETRY. At DOT. FaiUd To S«t NEF (XSTO)' 
TSSR Incorrect After READ DATA Cofmrnnd' 

WRITE TAPE MARK RETRY Prevlou* (Spac* R«v«-««. R«ad forward) Co«imand Fai 



led 



WRITE TAPE MARK RETRY Pr«v;ou« (Read Forward. Space Pevcrae) Co«Miand Fa' led 

POSITION (Space CoMMnd) Failed. TSSR Not Correct' 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Correct After Illegal Mode Bite Set' 

Illaoal Hod* Bite. Failed To Set ILC Bit In XSTO' 

WRITE TAPE MARK RETRY COMMAND Not Accepted' 

TSSR Not Correct After SPACE REVERSE DATA Comand' 

*****TAPE IS WRITE -LOCKED AND WILL CAUSE ERRORS*****' 

TSSR Not Correct After WRITE Co«Miv>d' 

Ti0e Not At BOT After REWIND Conw^d' 

Data Written To lap* Not Equal To Data Read From Tape' 

WRITE TAPE MARK RETRY DATA OVER EOT GAVE NO TAPE STATUS ALERT- 

TSSR Not Correct After SPACE REVERSE Into BOT' 

Rewind (POSITION) CouMwtd Not Accepted' 

RAM Error. Correct Data Pattern Not In Ran' 

TSSR Init. Failed After WRITE TAPE MARK RETRY COMMAND' 

Drive 7 Select Failed To Set "OFL- In TSSR' 

TSSR Not Correct After WRITE TAPE MARK RETRY DATA CoMMnd. SWB 6:t Set 

TSSR Not Correct After WRITE tape MARK RETRY DATA CoiiMiand' 

CVC Set. Didn"t Reaet VCK In Meaaage Buffer' 

TS6A Not Correct After WRITE TAPE MARK RETRY DATA CoaaMnd' 

WRITE SUBSYSTEM MEMORY Coemand Not Accepted (RAM Read)' 

Reading Long Record Failed To Set RLL Bit In XS^O' 

Reading Long Record Failed To Set RLS Bit In XSTO' 

Reaidual Byte Count Incorrect After Short Record Read' 

Reading Long Record Failed To Give Tape Status Alert' 

Data WRITE TAPE MARK RETRY Fror Tap* Not Correct. After SWB-1 

TSSR Incorrect After READ REVERSE Into Tape Mark' 

WRITE TAPE MARK RETRY At First Record. Failed To Set PIB (XbT3) 

TMK (XSTO) Failed To Sat Aft*r READ REVERSE Into Tape Merk- 

ASCIZ 'Write Tape Mark Retry' 



iROUTINE TO RESTORE COMMAND PACKET TO START UP (DEFAULT) VALUES 

I WRITE SUBSYSTEM MEMORY COMMAND 

I 

t - 

T29REST: 



012701 026070' 



SAVREG 
MOV 



♦T29PACKET.RI 



tSAVE THE REGISTERS 
I START OF THE PACKE^ 



TEST 
TEST 



1 - HAROUMIE TEST 1 
1: URXTE TAPE MARK 



8 TEST MACRO Mills 

RET- 



<8 



[TRf 



01 FE8 04 18:55 



664 051736 

665 0S1742 

666 031746 

667 031750 

668 031754 

669 031760 

670 031762 

671 031766 

672 031770 
675 031774 

674 032000 

675 032006 

676 032 ,10 

677 032J14 

678 032016 
679 

680 

681 032020 

682 032020 

683 032024 

684 032030 

685 032034 

686 032040 

687 032042 

688 032046 

689 032050 

690 032054 

691 032056 

692 032060 

693 032062 

694 032062 

695 032066 

696 032072 

697 032076 

698 032102 

699 032104 

700 032110 

701 032112 
032112 
032112 

702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 



012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
020227 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
012721 
012721 
005021 
012711 
000207 



104401 



140004 

026100' 

000012 
026112' 

000024 

000000 
000030 

177777 026112' 64$: 
000000 



MOV •140004. (Rl)» 

MOV •T290ATA,(R1)* 

CLR (RD* 

MOV «10..(R1)* 

MOV ♦T29BFR.CR1)* 

CLR CRl)» 

MOV •20.. (RD* 

CLR (Rl)» 



SEQ 101 



;URITE SUBSYSTEM MEM. WITH ACK, CVC'l 
I ADDRESS OF CHARAISTICS DATA BLOCK 
1 EXTENDED ADDRESS 
iSIZE OF DATA BLOCK IN BYTES 
(ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 



026200' 

140006 

026230' 

000006 

026230' 



026220' 

000000 

000000 

000000 



T'9RT2: 



T29RT3: 



MOV 


♦O.CRl) 




J SELECT DRIVE ZERO (0) 


MOV 


•24. .R2 




iNUMBER OF LOCATIONS TO BE CLEARED 


MOV 


•177777. T29BFR(R2) 


lALL ONES TO MESSAGE BUFFER 


TST 






iNEXT LOCATION 


CMP 


R2,«0 




iCHFCK FOR ENO OF LOOP 


BNE 


64* 




(KEEP GOING UNTIL DOi£ 


RTS 


PC 




t RETURN 


SAVREG 






iSAVE THE REGISTERS 


MOV 


•T29PK2.R1 




t START OF THE PACKET 


MOV 


•140006. CR1)» 




i WRITE SUBSYSTEM MEM. UlTH ACK.CVC'l. 


MOV 


•T29BF2,(R1). 




1 ADDRESS OF DATA BLOCK 


CLR 


(Rl)» 




t EXTENDED ADDRESS 


MOV 


•6. .(Rl)» 




J SIZE OF DATA BLOCK IN BYTES 


CLR 


(Rl). 






MOV 


•T296F2.R1 




{POINT TO DATA SEL AREA 


CLR 


CR1^» 






CLR 


(Rl) 






RTS 


PC 




{RETURN 


SAVREG 






jSAVE THE REGISTERS 


MOV 


•T29PK3.R1 




{START OF THE PACKET 


MOV 


•0.(R1)» 




{WRITE SUBSYSTEM MEM. WITH ACK. 


MOV 


•O.CRD* 




{ADDRESS OF DATA BLOCK 


CLR 


(Rl)» 




{EXTENDED ADDRESS 


MOV 


•O.(Rl) 


iSIZE 


OF DATA BLOCK IN BYTES 


RTS 


PC 




{RETURN 


ENOTST 









L 10036: 



TRAP 



C$ETST 



.S8TTL TEST 2: SKIP TAPE MARKS 



J ♦ 

IthIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 
{FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION 
{UNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS 
{STOP (ESS) AND ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED 
{BY THE WRITE CHARACTERISTICS COMMAND. THE TEST CONSISTS OF THE 
(FOLLOWING SUBTESTS (FOR EACH SUBTEST. THE TAPE IS FIRST WRITTEN 
(WITH AN APPROPRIATE SERIES OF DATA RECORDS AND/OR TAPE MARKS 
(AND/OR DOUBLE TAPE MARKS. 
( 

I THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 



L8 



TEST 
TEST 



2i 



HAROUARE TEST 1 8 TEST MACRO M1113 
SKIP TAPE MARKS 



Ol-rCB 84 18:55 



SEQ 102 



/19 
720 

721 032114 
032114 

722 032114 

727 032122 

728 032126 

729 032132 
730 

731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 

757 032140 

758 032140 
032140 
032140 

759 032142 

760 032146 

761 032152 

762 032156 

763 032162 

764 032170 

765 032174 

766 032176 
032176 
032202 
032204 
032210 
032212 
032216 
032220 
032224 

767 032226 

768 032232 



012737 
012700 
004737 
012737 



006166' 
041021' 
016402' 
000005 



002172' 



002210' 



BGNTST 

MOV 
MOV 
JSR 
MOV 



«EPRT1.EPRTSU 
«TST30I0.R0 
PC.TSTSETUP 
♦5.L00PCNT 



T2: : 

I PRIMARY ERROR MESSAGE 
lASCII MESSAGE TO IDENTIFY TEST 
I DO INITIAL TEST SETUP 
(PERFORM 5 ITERATIONS 



TEST 2. SUBTEST 1 



VERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH 

A TAPE MARK COUNT OF 1 OPERATES OPERATES PROPERLY. THE TAPE 

IS FIRST REWOUND. THEN WRITTEN WITH SEVERAL "FILES": 

EACH FILE CONSISTS OF A NUMBER OF DATA RECORDS 

FXLQWED BY A TAPE MARK. THE FINAL FILE IS 

TERMINATED BY A DOUBLE TAPE HARK. EACH DATA RECORD 

CONTAINS A FILE NUMBER AND THE RECORD NUMBER WITHIN 

THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY 

VERIFIED BY READING THE DATA. THE TAPE IS AGAIN 

REWOUND AND A SERIES OF SKIP TAPE MARKS FORWARD 

COMMANDS ARE ISSUED AND THE RESULTS (TAPE STATUS ALERT 

TERMINATION. TMK-1 STATUS. TAPE POSITION VIA READ 

COMMAND) IS CHECKED. PRIOR TO ISSUANCE OF EACH SKIP 

COMMAND. A WRITE CHARACTERISTICS COMMAND IS ISSUED TO 

SET UP THE ESS AND ENB CONTROL BITS. ALL 

COMBINATIONS OF ESS AND ENB ARE USED (00.01.10. 

11) I OPERATION SHOULD BE THE SAME IN EACH CASE FOR 

THIS SUBTEST. 



T30L00P: 



104402 

004737 041042' 

005037 036444' 

004737 041134' 

004737 041176' 

012737 176750 036446' 

004737 015664' 101: 

103426 

012727 000250 
000000 

013727 002116' 
000000 

00S367 177772 
001375 

005367 177756 
001367 

005337 036446' 
001356 



BGNSUB 



JSR 
CLR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



PC.T30REST 

T30FCN 

PC.T30RT2 

PC.T30RT3 

•65000.. T30DLY 

PC.SOFINIT 

20$ 

250 



DEC 
BNE 



T300LY 
10$ 



,:>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T2.1: 

TRAP CSBSUB 

•.SET COMMAND PACKET 

i CLEAR FILE COUNTER 

I SET UP OTHER COMMAND PACKET 

:SET UP OTHER COMMAND PACKET 

I SET UP DELAY COUNTER 

tOO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

(DELAY ROUTINE CALL 

MOV «250.(PC)» 
.WORD 0 

MOV L»OLY.CPC)- 

.WORD 0 

DEC 6(PC) 

BNE . 4 

DEC 22CPC) 

BNE . 20 

iBUMP COUNTER 

iBR. IF MORE COUNTING TO DO 



M8 



TEST 
TtST 



2: 



HARDUARE TEST 1 
SKIP TAPE MARKS 



8 TEST MACRO M1113 Ol-FEB-84 ISsSS 



SEQ 103 



769 032234 

773 032240 

774 032242 
032242 
032244 
032246 
032250 

775 032252 

776 032252 

777 032260 
778 

779 
780 
781 
782 
783 
784 

785 032264 

786 032270 

787 032272 

791 032276 

792 032300 
032300 
032302 
032304 
032306 

793 032310 
032310 

794 

795 
796 
797 
798 
799 
800 

801 032312 

802 032316 

803 032320 

804 032322 

805 032326 

809 032332 
032332 
032334 
032336 
032340 

810 032342 
032342 

811 
812 
813 
814 
815 
816 
817 

818 032344 

819 032350 

820 032352 



005257 002214- 
010001 

104455 
000311 
003642' 
011724' 

013737 002174' 036300' 
012704 036260' 



20*: 



004737 010552' 
103407 

005237 002214' 
010001 

104456 

000312 

005046' 

011724' 

104406 



004737 010704' 

103411 

010004 

016501 000002 
n05237 002214' 

104456 
000313 
040030' 
011736' 

104406 



013701 036310' 
010102 

052702 000002 



INC FATFLG 
MOV RO.Rl 

ERRDF ERRN0.SFIERR.SFIM5G 



MOV UNITN.TSOOSU 
MOV *T30PACKET,R4 



1 ERROR COUNT 

{CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT OK 

TRAP CiEROF 
.WORD 201 
.UORO SFIERR 
.UORO SFIMSG 

{SET U«» UNIT NUMBER 

{SUBROUTINE NEEDS PACKET ADDRESS 



ISSUE URITE CHARACTERISTICS COMMAND 



23*; 



JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 



PC.WRTCHR 
23* 

FATFLG 
RO.Rl 

ERRNO . URTMSG . SFIMSG 



-.ISSUE URITE CHARACTERISTICS 
{BR. IF COMMAND ISSUED OK 

{ERROR COUNT 
{SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 



: ISSUE A REUIND TO TAPE DRIVE AND WAIT FQR SSR TO SET 



SO*: 



JSR 
BCS 
MOV 
MOV 
INC 

ERRHRD 



CKLOOP 



PC. REWIND 

30* 

R0.R4 

TSSR(R5).R1 
FATFLG 

ERRNO. T30RWN.PKTSSR 



{CALL TAPE REWIND COMMAND 
{BR. IF NO PROBLEM 
{GET PACKET ADDRESS 
{GET STATUS REGISTER 
.•ERROR COUNT 
{REUTND NOT ACCEPTED 



{LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



{GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 



MOV 
MOV 
BIS 



T306FR*6.R1 

R1.R2 

«6IT1.R2 



{PICK UP XSTO 

{SET UP EXPECTED 

{SET 60T BIT IN EXPECTED 



C*ERHRD 
202 
URTMSG 
SFIMSG 

C*CLP1 



C*ERHR0 
203 

T30RWN 
PKTSSR 

CICLPl 



N8 



TEST 
TEST 



HMROUARE TEST 1 
SKIP TAPE MARKS 



8 TEST MACRO M1113 01-FEB 84 18:53 



SEQ 104 



821 032306 

822 03236C 

823 032362 

827 032366 
032366 
032370 
032372 
032374 

828 032376 
032376 

829 032400 
630 032406 

831 032412 

832 032420 
833 

834 
835 
836 
837 
838 
839 

840 032426 

841 032434 

842 032440 

843 032444 

844 032446 

845 03^450 

846 032452 

847 032456 

848 032462 

849 032466 

850 032472 

851 032476 

852 032500 

853 032502 

857 032506 
032506 
032510 
032512 
032514 

858 032516 
032516 

859 032520 

860 032522 

861 032526 
862 

863 
864 
865 
866 
867 
868 

869 032530 

870 032536 

871 032542 

872 032546 

873 032552 



020102 
001406 

005237 002214' 

104456 
000314 
037631- 
015364* 



40$: 



104406 

012737 000001 036444* 

012703 000001 64t: 

013737 003116' 036412* 65$: 

012737 003720 036416* 



CMP R1.R2 

BEQ 40$ 

INC FATFLG 

ERRHRO ERRN0.T30B0T.EXPREC 



CKLOOP 

MOV •l..T30rCN 

MOV «1.R3 

MOV FREE,T30UB 

MOV «2000..T30SZ 



(DOES EXP - REC'D 
jBR. IF EQUAL (OK) 

if^ROR COUNT 
I TAPE NOT AT 60T AFTER REUIND 

TRAP 
.UURD 
.UORO 
.WORD 



»LOOP IF SELECTED 



J SET 



TRAP 



ILE" COUNTER AT 1 DECIMAL 
J ONE RECORD PER "FILE" 
tSET UP PACKETS' S WRITE BUFFER 
(SET RECORD SIZE AT 2000 BYTES 



C$ERHRO 
204 
T30B0T 
EXPREC 

CtCLPl 



tURITE DATA.ACK.CVC-1 COMMAND 

********************************************************** 



012737 140005 036410* 

012704 036410' 

013702 036444* 

000302 

010301 

060201 

010177 150440 
010465 000000 
004737 016140' 
016501 000002 
012702 000200 
020102 
001406 

005237 002214' 

104456 

000315 

036760' 

011736' 

104406 

005203 

020327 000021 
001331 



MOV 


•140005. T30PK3 


lURITE OATA.ACK.CVC-1 COMMAND 


MOV 


•T30PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


MOV 


T30FCN.R2 


tCET FILE COUNTER 


SUAB 


R2 


J MOVE TO UPPER BYTE 


MOV 


R3.R1 


iGET RECORD COUNTER 


ADD 


R2.R1 


sFILE COUNTER IN UPPER. RECORD • LOU 


MOV 


Rl.aFREE 


;MOV TO OUT PUT BUFFER 


MOV 


R4,TSDB(R5) 


! ISSUE COMMAND 


JSR 


PC.UAITF 


J WAIT FOR SSR TO SET 


MOV 


TSSR(R5),R1 


iGET TSSR CONTENTS 


MOV 


«SSR.R2 


;SET UP EXPECTED 


CMP 


R1.R2 


iARE THEY EQUAL 


BEQ 


70$ 


:BR. IF OK 


INC 


FATFLG 


: ERROR COUNT 


ERRHRD 


ERRNO . T30UD0 . PKTSSR 


;TSSR INCORRECT AFTER WRITE DATA 



70$; 



CKLOOP 

INC 
CMP 
BNE 



R3 

R3.»21 
65$ 



TRAP 
.WORD 
.WORD 
UORO 

.LOOP IF SELECTED 

TRAP 

: COUNT THE RECORD COUNTER DOWN 
jAT 20 YET 

sBR. IF NOT AT 20 RECORDS WRITTEN 



C$ERHRO 

205 
T30UD0 
PKTSSR 



C$CLP1 



J WRITE TAPE MARK,ACK.CVC-l COMMAND 



012737 141011 036410' 

012704 036410' 

010465 000000 

004737 016140' 

016501 000002 



MOV *141011,T30PK3 

MOV «T30PK3.R4 

MOV R4.TSDB(RS) 

JSR PC.UAITF 

MOV TSSR(R5).Rl 



; WRITE TAPE MARK. ACK.CVC-l COMMAND 
tSET UP R4 UITH PACKET ADDRESS 
J ISSUE COMMAND 
:UAIT FOR SSR TO SET 
sPICK UP TSSR 



B9 



T I 

T 2: 



KM«MMR£ TEST 1 0 TEST MACRO MlllS 
SKIP TAPE nJtKS 



01 FEB 04 10:55 



074 032556 
075 

076 0S2S64 

077 0S2S66 

001 052572 
052572 
052574 
052576 
052600 

002 052602 
052602 

005 052604 

004 052610 

005 052616 
006 

007 
000 
009 
090 
891 
692 



907 
900 
909 
910 
911 
912 
915 

914 032674 

915 052700 

916 052702 

917 052704 
910 052710 
922 052714 

052714 
052716 
052720 
052722 
925 052724 
052724 

924 



012702 000200 

020102 

001406 

005257 002214' 

104456 

000516 

040152' 

011756* 

104406 

005257 056444' 
025727 056444' 000006 
001275 



160*: 



MOV 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 



♦SSR.R2 
R1.R2 
160 » 
FATFLG 

ERRNO. T50UDC.PKTSSR 



INC 
CMP 
BNE 



T30FCN 

T30rCN.»6 

64t 



SEO 105 



•SET UP EXPECTED (SSR ONLT) 

lUAS STATUS GOOU 

iBR. ir TERMINATION WAS GOOD 
{ERROR COUNT 

iTSSR NOT CORRECT ATTER MRT TAPE M. 

TRAP CIERHRD 
.MORO 206 
.UORO T30U0C 
.yORO PKTSSR 

I LOOP IF SELECTED 

TRAP CICLPl 
I COUNT TME "FILE" COUNTER DOUN 
tURITE 5 FILE TO TAPE 
iBR. IF NOT AT 5 FILES WRITTEN 



URITE TAPE MARK.ACK.CVC-l COMHANO 



032620 


012757 


141011 056410' 


nov 


•141011. T50PK5 


tURITE TAPE MARK.ACK.CVC-1 COMMAND 


052626 


012704 


056410' 


nov 


•T50PK5.R4 


iSET UP R4 UITH PACKET ADDRESS 


052652 


010465 


000000 


MOV 


R4.TSDB(R5) 


1 ISSUE COMMAND 


052656 


004757 


016140' 


JSR 


PC.MAITF 


lUAIT FOR SSR TO SET 


052642 


016501 


000002 


nov 


TSSR(R5).R1 


iPICK UP TSSR 


052646 


012702 


000200 


MOV 


•SSR.R2 


iSET UP EXPECTED (SSR ONLV) 


052652 


020102 




CMP 


R1.R2 


iMAS STATUS GOOD 


032654 


001406 




BEQ 


1651 


iBR. IF TERMINATION WAS GOOD 


032656 


005237 


002214- 


INC 


FATFLC 


1 ERROR COUNT 


032662 






EMWRO 


ERRNO. T50U0C. PKTSSR 


iTSSR NOT CORRECT AFTER URT TAPE M. 


032662 


104456 








TRAP CtERHRD 


032664 


000517 








.UORO 207 


052666 


040152' 








.UORO T30U0C 


032670 


011756' 








.UORD PKTSSR 


052672 




1651: 


CKLOOP 




iLOOP IF SELECTED 


052672 


104406 








TRAP CICLPI 






! ISSUE 


A REMIND 


TO TAPE DRIVE AND UAIT 


FOR SSR TO SET 



004757 010704' 

105411 

010004 

016501 000002 
005257 002214' 

104456 

000520 

040050' 

011756* 

104406 



JSR 
BCS 

nov 
nov 

INC 

ERRHRD 



170»: CKLOOP 



PC. REMIND 

1701 

R0.R4 

TSSR(R5).R1 
FATFLC 

ERRNO. T50RUN.PKTSSR 



I CALL TAPE REMIND COmANO 
iBR. IF NO PROBLEM 
tCET PACKET ADDRESS 
iGET STATUS REGISTER 
tERROR COUNT 
{REWIND NOT ACCEPTED 



iLOOP IF SELECTED 



TRAP 
.WORD 
.UORD 
.UORD 

TRAP 



CtERMRD 
200 
T50RWN 
PKTSSR 

C«ClP1. 



8 TEST HACRO HlIlS 01-FEB-S4 18i55 



C9 



SEQ 106 



925 
926 
927 
928 
929 
950 

951 0S2726 

952 052752 
955 052754 

954 052740 

955 052742 

956 052744 

940 052 7S0 
052750 
052752 
052754 
052756 

941 052760 
052760 

942 052762 
945 052766 

944 052774 

945 055000 
946 

947 
948 
949 
950 
951 
952 

955 055004 

954 055010 

955 055012 

959 055016 

960 055020 
055020 
055022 
055024 
055026 

961 055050 
055050 

962 
965 
964 
965 
966 
967 
968 

969 055052 

970 055040 

971 055046 

972 055052 
975 055056 

974 055064 

975 055070 

976 055074 
97, 055100 



GET EXTEMOEO STATUS RECXSTER ZERO (XSTO) FNOH MESSAGE BUrrER 



013701 056510- 
010102 

052702 000002 

020102 

001406 

005257 002214' 

104456 

000521 

057651' 

015564* 

1801: 

104406 

012705 056426' 
015757 002174* 056500' 
011557 056276' 1821: 
012704 056260' 



NOV 

nov 

BIS 
CMP 
BEQ 

I NC ^ 



CKLOOP 



TS0BFR*6.R1 

R1.R2 

«6IT1.R2 

R1.R2 

1801 

FATFLC 

ERf(NO.T5060T.EXPftEC 



nov 
nov 
nov 
nov 



•T50inv.R5 
UNITH.T500Sy 
(R5).T50ETn 
•T50PACKET.R4 



iPICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

lOOES EXP - REC'D 

iBR. IF EQUAL (OK) 

I ERROR COUNT 

•TAPE NOT AT BOT AFTER REWIND 

TRAP C*ER^«0 
. WORD 209 
.WORD TSOeOT 
.WORD EXPREC 

I LOOP IF SELECTED 

TRAP CICLPI 
I SET UP POINTER TO COMMAND TABLE 
I SET UP UNIT NUMBER 
iGET NEXT COttlAM) 
• SUBROUTINE NEEDS PACKET ADORES:. 



ISSUE URITE CHARACTERISTICS COMMAND 



004757 010552* 
105407 

005257 002214* 
010001 

104456 

000522 

005046' 

011724* 

104406 



188ti 



JSR 
BCS 
INC 
MOV 
ERRHRO 



CKLOOP 



PC.URTCHR 
188t 

FATFLG 
RO.Rl 

ERRNO.URTMSG. SFIMSG 



I ISSUE URITE CHARACTERISTICS 
iBR. IF COMMAfO ISSUED OK 

I ERROR COUNT 
tSAVE CONTENTS OF TSSR 
■WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



iLOOP IF SELECTED 



TRAP 



CtERHRO 
210 
URTMSG 
SFIMSG 

CICLPI 



SKIP TAPE MARK.ACK.CVC-l COMMAND 



012757 141010 056410' 

012757 000001 056412' 

012704 056410' 

010465 000000 

012757 176750 056446* 

004757 016140' 

016501 000002 

052701 000200 
001017 



MOV •141010. T50PK5 

MOV 41 . T50RB 

MOV •T50PK5.R4 

189«: MOV R4.TS06(R5) 

MOV •65000.. T500LT 

190t: JSR PC.UAITF 

MOV TSSR(R5).R1 

BIT •SSR.Rl 

BNE 191 » 



iSKXP TAPE MARK.ACK.CVC-1 COMMAND 

I SET UP NUMBER TO SKIP 

I SET UP R4 UITH PACKET ADDRESS 

I ISSUE COMMAND 

I SET UP DELAY COUNTER 

lUAIT FOR SSR TO SET 

I PICK UP TSSR 

its SSR SET YET 

iBR. IF SSR IS SFT 



D9 



SEQ 107 



OTA 










OtLAT 


2^0 






Olc rc r 














000000 












05S110 


013727 


002116' 










035114 


000000 












U33110 


Ov93or 


177772 










095122 


00137? 












035124 


005S67 


177756 










VA 

033I3U 


A/\4 T 

001367 










ATA 


OSS 152 


005SS7 


096446 




DEC 


TSOOLt 




53ISO 


0013D2 








190» 


or 


»1W 


012 702 


000200 


191 » : 


nov 


•55R t R2 






A^Al A3 






LrW 


HI 






AAf 

0014UO 






OCA 
















FATFLG 


986 


03S1S4 








ERRHRO 


ERRNO. TiOSKH.PKTSSR 




033154 


104456 












035156 


000323 












033160 


036704' 












033162 


011736' 










969 


035164 






192$: 


CKLOOP 






033164 


104406 











990 
991 
992 
9<»5 
994 
995 
996 
997 
996 
999 
1000 
1001 
1002 
1006 



1007 

1006 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 



033166 
055172 
055174 
055200 
033202 
033204 
033210 
055210 
033212 
035214 
055216 
033220 
033220 
035222 
033226 
033252 



I CALL DELAY ROUTINE 

MOV ♦250. (PC). 

.WORD 0 

MOV L IDLY, (PC) « 

.WORD 0 

DEC -6(PC) 

BNE . -4 

DEC -22(PC) 

BNE . -20 

I BUMP DELAY ROUTINE 

iBR. IF MORE DELAY TO GO 

» SET UP EXPECTED CSSR ONLY) 

I WAS STATUS GOOD 

I BR. IF TERMINATION WAS GOOD 
I ERROR COUNT 

iTSSR NOT CORRECl AFTER SKIP TAPE M, 

TRAP CtERHRO 
.UORD 211 
.UORO T50SKN 
.MORO PKTSSP 

I LOOP IF SELECTED 

TRAP CtCLPl 



GET EXTENDED STATUS REGISTER ZERO (XSTO) FROH MESSAGE BUFFER 



013701 036310' 
010102 

052702 100000 

020102 

001406 

005237 002214' 

104456 
000324 
040304' 
015364' 

104406 

012700 177777 

004737 017314' 

013737 003116' 036412' 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHPD 



1951 : CKLOOP 



T306FR»6.R1 

R1.R2 

«eiT15.R2 

R1.R2 

195 1 

FATFLG 

ERRNO. T30TMK.EXPREC 



MOV 
JSR 
MOV 



♦177777.ro 
PC.FILLMEM 
FREE.T50RB 



jPICK UP XSTO 

iSET UP EXPECTED 

>SET TMK BIT IN EXPECTED 

iDOES EXP - REC'D 

iBR. IF EQUAL (OK) 

I ERROR COUNT 

(TMK NOT SET Ar'TER URT TAPE MARK 

TRAP 
.WORD 
.UORO 
.UORD 

iLOOP IF SELECTED 

TRAP 

J VALUE TO URITTEN TO MEMORY 
I FILL MEM UITM ALL ONES 
{STARTING READ BUFFER A30RESS 



CtERKRO 
212 
T30TMK 
EXPREC 

CICLPI 



READ FORUARD.ACK.CVC-1 COMMAND 



033240 
035246 
055252 
033260 
033264 



012737 140001 056410' 

012704 056410' 

012757 005720 036416' 

010465 000000 

004737 016140' 



NOV *140001.T30PK3 

MOV ♦T50PK5.R4 

MOV ♦2000..T50SZ 

MOV R4.TSD6(R5) 

JSR PC.UftlTF 



tREAO FORUARO.ACK.CVC'l COMMAND 
I SET UP R4 WITH PACKET ADDRESS 
I SET UP RECORD SIZE IN PACKET 
I ISSUE COMMAND 
(WAIT FOR SSR TO SET 



TEST 1 HARDWARE TEST 1-S TEST MACRO MHIS 01 -FEB 84 18:55 SEQ 106 

TEST 2: SKIP TAPE HARKS 



102S 




016501 


000002 




MOV 


TSSR(RS).R1 


iGET TSSR CONTENTS 




1024 


033274 


012702 


000200 




flOV 


•SSR.R2 


1 SET UP EXPECTED 




1025 


033300 


020102 






CMP 


R1,R2 


lARE THEY EQUAL 




1026 


033302 


001406 






BEQ 


200 » 


jBR. IF OK 




1027 


0SSS04 


005^37 


002214' 




INC 


FATFLC 


(ERROR COUNT 




1031 


033310 








ERRHRO 


ERRNO. T30R0F .PKTSSR 


iTSSR INCORRECT AFTER WRITE DATA 




033310 


104456 










TRAP 


OERHRO 




033312 


000325 










.WORD 


213 




033314 


037203' 










!wOR0 


T30R0F 




033316 


011736' 










WORD 


PKTSSR 


1032 


033320 






200$: 


CKLOOP 




iLOOP IF SELECTED 






033320 


104406 










TRAP 


OCLPl 


1033 


033322 


017701 


147570 




MOV 


SFREE.Rl 


1 FIRST LOC IN READ BUFFER 




1034 


033326 


012702 


177777 




MOV 


♦177777, R2 


1 EXPECTED IF NO DATA TRANS. 




1035 


033332 


020102 






CMP 


R1.R2 


iDID ANY DATA GET TRANSFERRED 




1036 


033334 


001006 






BNE 


220$ 


iBR, IF NO DATA TRANS (GOOD) 




1037 


033336 


005237 


002214' 




INC 


FATFLG 


1 ERROR COUNT 




1041 


033342 








ERRHRO 


ERRNO . T 500TR , EXPREC 


lOATA TRANSFERRED ON READ TAPE 


MARK 




033342 


104456 










TRAP 


CtER^AO 




033344 


000326 










.WORD 


214 




033346 


040660' 










.WORD 


T300TR 




033350 


015364' 










.WORD 


EXPREC 


1042 


033352 






2201: 


CKLOOP 




iLOOP IF SELECTED 






033352 


104406 










TRAP 


C«CLP1 


1043 


033354 


012702 


001001 




MOV 


•1001, R2 


iSET UP RECORD NUMBER EXPECTED 


(FILE 2) 


1044 


033360 


017701 


147532 




MOV 


VREE.Rl 


iGET INFO FROM BUFFER 




1045 


033364 


020201 






CHP 


R2.R1 


lARE THEr EQUAL 




1046 


033366 


001406 






BEQ 


228 f 


iBR. IF EQUAL (OK) 




1047 


033370 


005237 


002214 ' 




INC 


FATFLG 


1 ERROR COUNT 




1051 


033374 










ERRNO. T30PTB.EXPREC 


(RECORD POSITION WAS NOT CORRECT 




033374 


104456 










TRAP 


CtERHRD 




033376 


000327 










.WORD 


215 




033400 


037032' 










.WORD 


T30PTB 




033402 


015364' 










.WORD 


EXPREC 


1052 


033404 






2281: 


CKLOOP 




iLOOP IF SELECTED 






033404 


104406 










TRAP 


CICLPl 


1053 


















1054 


















1055 


















1056 








1 ISSUE 


A REWIND 


TO TAPE DRIVE AND UAIT 


FOR SSR TO SET 




1057 


















1058 


















1059 


















1060 


033406 


004737 


010704' 




JSR 


PC .REWIND 


tCALL TAPE REMIND COMMAND 




1061 


033412 


103411 






BCS 


2S0I 


iBR. IF NO PROBLEM 




1062 


033414 


010004 






NOV 


R0.R4 


tSAVE PACKET ADDRESS 




1063 


033416 


016501 


000002 




nov 


TSSR(R5),R1 


tGET TSSR STATUS 




1064 


033422 


005237 


002214' 




INC 


FATFLG 


1 ERROR COUNT 




1068 


033426 








ERRHRO 


ERRNO. TSORWN.PKTSSR 


iREUiND NOT ACCEPTED 






033426 


104456 








TRAP 


CtERHRD 




033430 


000330 










.WORD 


216 




033432 


040030' 










.WORD 


T30RWN 




033434 


011736* 










.WORD 


PKTSSR 


1069 


033436 






230>: 


CKLOOP 




iLOOP IF SELECTED 






033436 


104406 








TRAP 


C«CLP1 


1070 



















1071 



F9 



TEST 
TEST 



HAROUARE TEST 16 TEST MACRO HI 113 
SKIP TAPE MARKS 



01 -FEB -64 18:55 



SEO 109 



1072 
1073 
1074 
10^5 
1076 
1077 
1076 
1079 
1060 
1081 
1082 
1066 



1087 

1086 
1089 
1090 
1091 
1092 
1093 

1094 



1095 
1096 
1097 
1096 
1099 
HOC 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 



1114 

1115 
1116 
1117 
1118 
1119 
1120 
1121 



033440 
033444 
033446 
0334S2 
033454 
033456 
033462 
033462 
033464 
033466 
033470 
033472 
033472 
033474 
033476 
033500 
033504 
033506 
033512 
033512 
033514 
033514 
033514 
033516 
033524 
033526 
033532 



033532 
033532 
03SS32 
033534 
033540 
033544 
033550 
033554 
033562 
033566 
033570 



iGET EXTENDED STATUS REGISTER ZERO (XSTO) FROH MESSAGE BUFFER 



013701 
010102 
052702 
020102 
001406 
005237 

104456 

000331 

037631' 

015364' 

104406 

005723 
011301 
020127 
001402 
000137 

104406 



036310' 
000002 

002P14' 



240«i 



177777 
032774' 



330t: 



104403 

023727 002214' 000017 
103402 

004737 017074' 



999»: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 

TST 
MOV 
CMP 
BEQ 
JMP 

CKLOOP 
ENOSUB 



CMP 
BLO 
JSR 



T30BFR*6.R1 

R1.R2 

•BIT1.R2 

R1.R2 

2401 

FATFLG 

ERRNO . T30B0T . EXPREC 



(R3)» 
CR3).R1 
Rl, #177777 
330t 
162* 



FATFLG. #15. 
999* 

PC.CKOROP 



I PICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

iDOES EXP • REC'O 

iBR. IF EQUAL (OK) 

I ERROR COUNT 

I TAPE NOT AT DOT AFTER REUINO 

TRAP 
.UORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

» POINT TO NEXT POSITION 
(GET NEXT COMMAND ETC. 
I END OF TABLE MARKER 
(BR. IF AT END OF TABLE 
I JUMP TO MORE COMMANDS TO DO 
(LOOP IF SELECTED 

TRAP 

!<<<<<<<<<<< END SUBTEST >>>>>>>>>>> 
L 10044: 

TRAP C»ESUB 
(IS ERROR COUNT AT 25 
J BR. IF LESS THAN 25 
{TRY TO DROP THE UNIT 



CIERHRD 
217 
T30B0T 
EXPREC 

C»CLP1 



CICLPl 



104402 
004737 
005037 
004737 
004737 
012737 
004737 
103426 



041042' 
036444* 
041134' 
041176' 

176750 036446' 
015664' 10»: 



TEST 2. SUBTEST 2 

VERIFIES THAT SKIP TAPE HARKS COMMANDS WITH A TAPE 
HARK COUNT GREATER THAN 1 OPERATE PPOPERlY. COUNTS 
OF 2.3.8.64,256. AND 512 ARE TESTED. THE 
TESTING SEQUENCE IS SIHILAR TO THAT USED IN SUBTEST I. 



BGNSUB 



JSR 
CLR 
JSR 
JSR 
HOV 
JSR 
BCS 
DELAY 



PC.T30REST 

T30FCN 

PC.T30RT2 

PC.T30RT3 

#65000. .TSODLY 

PC.SOFINIT 

20 » 

250 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>»>>>>> 
T2.2: 

TRAP CtBSUB 

I SET COMMAND PACKET 

J CLEAR FILE COUNTER 

t SET UP OTHER COMMAND PACKET 

J SET UP OTHER COMMAND PACKET 

I SET UP DELAY COUNTER 

iDO INITIALIZE ON CONTROLLER 

I BR IF INIT UAS QK 

I DELAY ROUTINE CALL 



TEST I HARDWARE TEST 16 TEST MACRO MlllS 01 -FEB 84 18:55 SEQ llO 

TEST ^: SKIP TAPE HARKS 





033570 


012727 


000250 






HOV 


•250 . ( PC) • 




033574 


000000 








.WORD 


0 




033576 


015727 


002116- 






HOV 


L»DLy.(PC)» 




033602 


000000 








.WORD 


0 




033604 


005367 


177772 






DEC 


6(PC) 




033610 


001375 








BNE 


. 4 




033612 


005367 


177756 






DEC 


-22(PC) 




033616 


001367 








BNE 


. 20 


1122 


033620 


005337 


036446' 


DEC 


T50DLY 


iBUMP COUNTER 




1125 


033624 


001356 




BNE 


101 


iBR. IF MORE COUNTING TO DO 




1124 


033626 


005237 


002214' 


INC 


FATF>.G 


{ERROR COUNT 




1128 


033632 


010001 




MOV 


RO.Rl 


{CONTENTS CF TSSR REGISTER 




1129 


033634 






ERROf 


ERRNO.SFIERR.SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 






033634 


104455 








TRAP 


CIERDF 




033636 


000332 








.WORD 


218 




033640 


003642' 








.WORD 


SFIERR 




033642 


011724- 








.UORD 


SFIMSG 


1130 


033644 




201: 










1131 


033644 


013737 


002174' 036300' 


HOV 


UNITN.T30DSU 


iSET UP UNIT NUMBER 




1132 


033652 


012704 


036260* 


NOV 


•T30PACKET.R4 


{SUBROUTINE NEEDS PACKET ADDRESS 


1133 
















1134 
















1135 






1 










1136 






t ISSUE 


URITE CHARACTERISTICS COMMAND 






1137 
















1136 
















1139 
















1140 


033656 


004737 


010552' 


JSR 


PC.URTCHR 


{ISSUE WRITE CHARACTERISTICS 




1141 


033662 


103407 




BCS 


231 


{BR. IF COMHANO ISSUED OK 




1142 


033664 


005237 


002214* 


INC 


FATFLG 


{ERROR COUNT 




1146 


033670 


010001 




HOV 


RO.Rl 


sSAVE CONTENTS OF TSSR 




1147 


033672 






ERRHRD 


ERRNO . MR THSG . SF IHSG 


(WRITE CMARACTERISTISC FAILED 






033672 


104456 








TRAP 


C«ERHRO 




033674 


000333 








.WORD 


219 














.WORD 


WR7HSG 




033700 


011724' 








.WORD 


SFIHSG 


1148 


033702 




231: 


CKLOOP 




(LOOP IF SELECTED 






033702 


104406 








TRAP 


CICLPl 


1149 
















1150 
















1151 






1 










1152 
il53 






1 ISSUE 


A REUIND 


TO TAPE DRIVE AND WAIT 


FOR SSR TO SET 




1154 






1 










1155 
















1156 


033704 


004737 


010704' 


JSR 


PC. REUIND 


{CALL TAPE REWIND COMMAND 




1157 


033710 


103411 




BCS 


30* 


{BR. IF NO PROBLEM 




1156 


033712 


010004 




HOV 


R0.R4 


{GET PACKET ADDRESS 




1159 


033714 


016501 


000002 


HOV 


TSSR(R5).Rl 


(GET STATUS REGISTER 




1160 


033720 


005237 


002214' 


INC 


FATFLG 


(ERROR COUNT 




1164 


033724 






ERRHRD 


ERRNO. T30RUN.PKTSSR 


(REWIND NOT ACCEPTED 






033724 


104456 








TRAP 


CIERHRD 




033726 


000534 








.WORD 


220 




033730 


040030' 








.WORD 


T50RUN 




033732 


011756' 








.WORD 


PKTSSR 


1165 


033734 




50»: 


CKLOOP 




(LOOP IF SELECTED 






033734 


104406 








TRAP 


CJCLPl 



H9 



TeIt ^2' SKlR^rSlc^M^i * ^^^^ «ACRO H1113 



01 -FEB 84 18:55 



SEQ 11: 



1166 
1167 
1160 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
11S2 



1183 

1184 

1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1212 



1213 

1214 

1215 
1216 
1217 
1218 



033736 
033742 
033744 
033750 
033752 
033754 
033760 
033760 
033762 
033764 
033766 
033770 
033770 
033772 
034000 
034004 
054012 



iGET EXTENDED STATUS REGISTER ZERO (XSTO) FROn MESSAGE BUFFER 
i 

I ********************************************************* 



013701 036310' 
010102 

052702 000002 

020102 

001406 

005237 002214' 

104456 

000335 

037631' 

015364' 



40$: 



104406 

012737 000001 036444' 

012703 000001 64$: 

013737 003116' 036412' 65$: 

012737 000024 036416' 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 



T30BFR»6.R1 

R1.R2 

•6IT1.R2 

R1.R2 

40$ 

FATFLG 

ERRN0.T30B0T.EXPREC 



MOV 
MOV 
MOV 
MOV 



«1. .T30FCN 
•1.R3 

FREE.TS0U6 
•20..T30SZ 



.PICK UP XSTO 

I SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

iDOES EXP - REC-O 

iBR. IF EQUAL (OK) 

t ERROR COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.V40R0 
.WORD 
.UORO 

I LOOP IF SELECTED 

TRAP 

;SET "FILE" COUNTER AT 1 DECIMAL 
I ONE RECORD PER "FILE" 
iSET UP PACKETS' S URITE BUFFER 
tSET RECORD SIZE AT 2000 BYTES 



C$ERHRD 

221 

T30B0T 
EXPREC 

CICLPI 



: URITE DATA.ACK.CVC-1 COMMAND 



034020 


012737 


140005 036410' 


MOV 


•140005. T30PK3 


lURITE DATA.ACK.CVC-1 COMMAND 


034026 


012704 


036410' 


MOV 


«T30PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


034032 


013702 


056444' 


MOV 


T30FCN.R2 


iGET FILE COUNTER 


034036 


000302 




SUAB 


R2 


iMOVE TO UPPER BYTE 


034040 


010301 




MOV 


R3.R1 


iGET RECORD COUNTER 


034042 


060201 




AGO 


R2.R1 


iFILE COUNTER IN UPPER. RECORD « LOU 


034044 


010177 


147046 


MOV 


Rl.aFREE 


J MOV TO OUT PUT BUFFER 


034050 


010465 


000000 


MOV 


R4,TSDB(R5) 


; ISSUE COMMAND 


034054 


004737 


016140' 


JSR 


PC.UAITF 


iUAIT FOP SSR TO SET 


034060 


016501 


000002 


MOV 


TSSRCR5>.R1 


iGET TSSR CONTENTS 


034064 


012702 


000200 


MOV 


*SSR.R2 


: SET UP EXPECTED 


034070 


020102 




CMP 


Rl.R? 


lARE THEY EQUAL 


034072 


001406 




BEQ 


70 » 


tBR. IF OK 


034074 


005237 


002214' 


INC 


FATFLG 


t ERROR COUNT 


034100 






ERRHRD 


ERRNO.rSOUDD.PKTSSR 


iTSSR INCORRECT AFTER URITE DATA 


034100 


104456 






TRAP C$ERHRO 


034102 


000336 








.WORD 222 


034104 


036760' 








.WORD T30UI)D 


034106 


011736' 








.UORD PKTSSR 


034110 




70$; 


CKLOOP 




J LOOP IF SELECTED 


034110 


104406 








TRAP C»CLPl 


034112 


005203 




INC 


R3 


1 COUNT THE RECORD COUNTER OOUN 


034114 


020327 


000021 


CMP 


R3.*21 


jAT 20 YET 


034120 


001331 




BNE 


65$ 


iBR. IF NOT AT 20 RECORDS URITTFN 



19 



TtST 
TEST 



HARDWARE TEST 1 8 fZSX HACRO MHIS 
SKIP TAPE HARKS 



01 -FEB S4 18:55 



SEQ 112 



1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1236 



1237 

1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1260 



1261 

1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 



034 122 
034130 
034134 
034140 
034144 
034150 
034154 
034156 
034160 
034164 
034164 
034166 
034170 
034172 
034174 
034174 
034176 
034202 
034210 



034212 
034220 
034224 
034230 
034234 
034240 
034244 
034246 
034250 
034254 
034254 
034256 
034260 
034262 
034264 
034264 



034266 
054272 
034274 



tURITE TAPE MARK.ACK.CVC-l COmANO 



012737 


141011 036410' 


MOV 


#141011. T30PK3 


lURZTE TAPE MAftK.ACK.CVC-1 COMMAND 


012704 


056410' 


MOV 


♦T30PK3.R4 


iSET UP R4 WITH PACKET AOORCSS 


010465 


000000 


MOV 


R4.TS0B(R5) 


1 ISSUE COMMAND 


004737 


016140' 


JSR 


PC.UAITF 


iWAIT FOR SSR TO SET 


016501 


000002 


MOV 


TSSR(R5).R1 


I PICK UP TSSR 


012702 


000200 


MOV 


•SSR.R2 


1 SET UP EXPECTED (SSR ONLY) 


020102 




C»*> 


R1.R2 


lUAS STATUS GOOD 


001406 




BEQ 


1601 


iBR. IF TERMINATION WAS GOOD 


005237 


002214' 


INC 


FATFLG 


1 ERROR COUNT 






ERRHRO 


ERRNO . T 30WDC . PK T SSR 


jTSSR NOT CORRECT AFTER URT TAPE M 



104456 

000337 

040152' 

011736' 

104406 

005237 036444' 
023727 036444' 000031 
001273 



160$; 



CKLOOP 

INC 
CMP 
ONE 



T30FCN 

T30FCN.#25. 

64( 



TRAP 
.UORO 
. WORD 
.MORO 

iLOOP IF SELECTED 

TRAP 

(COUNT THE "FILE" COUNTER OOUN 

lURITE 25 FILES TO TAPE 

iBR. IF NOT AT 25 FILES WRITTEN 



OERHRO 
223 
T30UDC 
PKTSSR 

CICLPl 



WRITE TAPE MARK.ACK.CVC-l COMMAND 



012737 141011 036410' 

012704 056410' 

010465 000000 

004737 016140' 

016501 000002 

012702 000200 
020102 
001406 

005237 002214' 

104456 
000340 
040152' 
011736' 

104406 



MOV 


♦141011. T30PKS 


(WRITE TAPE MARK.ACK.CVC-l COMMAND 


MOV 


•T30PK3.R4 


iSET iJP R4 WITH PACKET ADDRESS 


MOV 


R4.TSDe(R5) 


t ISSUE COrtlAND 


JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


(PICK UP TSSR 


MOV 


♦SSR.R2 


iSET UP EXPECTED (SSR ONLY) 


CMP 


Rl,R2 


iWAS STATUS GOOD 


BEQ 


165 » 


iBR. IF TERMINATION WAS GOOD 


INC 


FATFLG 


{ERROR COUNT 


ERRMIO 


ERRNO . T30WDC . PK TSSR 


iTSSR NOT CORRECT AFTER WRT TAPE M. 



165* ! 



CKLOOP 



I LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ER>«0 
224 

T50W0C 
PKTSSR 

C»ClP1 



ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 



004757 010704' 

1C5411 

010004 



JSR 
BCS 
MOV 



PC. REWIND 

170J 

R0.R4 



iClVLL TAPE REWIND COMMAND 
tBR. IF NO PROBLEM 
I GET PACKET ADDRESS 



J9 



TEST 1 - HARDWARE TEST I 8 TEST MACRO MlllS 
TEST 2: SKIP TAPE MARKS 



01 -FEB 84 18:55 



SEQ 115 



1272 


034276 


016501 


000002 


MOV 


TSSR(R5).R1 


;GET STATUS REGISTER 






1273 


034302 


005237 


002214' 


INC 


FATFLG 


{ERROR COUNT 






1277 


034306 
034306 
034310 
034312 
034314 


104456 

000341 

040C30' 

011736' 




ERRHRC 


ERRNO . T 30RWN , PK T SSR 


ii^EWlND NOT ACCEPTED 


TRAP 
.UORO 

.WORD 


OERHRD 
225 
TSORUN 
PKTSSfl 


1278 


034316 
034316 


104406 




1701: CKLOOP 




iLOOP IF SELECTED 


TRAP 


CfCLPl 



1279 
1280 
1281 
1282 
1283 
1284 
1285 
1266 
1287 
1286 
1289 
1290 
1291 
1295 



1296 

1297 
1296 
1299 
ISOO 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1315 
1316 



1317 

1318 
1319 
1320 
1321 
1322 



034404 
034410 
034412 
034416 
034420 
034420 
034422 
034424 
034426 
034430 
034430 



iGET EXTENDED STATUS REGISTER ZERO (XSTO) FRQH MESSAGE BUTFER 



034320 


0137C1 


036310' 




MOV 


T306FR*6.R1 


•PICK UP XSTO 




034324 


010102 






MOV 


R1.R2 


tSET UP EXPECIED 




034326 


052702 


000002 




BIS 


«6IT1.R2 


tSET BOT BIT IN EXPECTED 




034332 


020102 






CMP 


R1.R2 


tOOES EXP - REC'O 




034334 


001406 






BEQ 


180t 


iBR. IF EQUAL (OK) 




034336 


005237 


002214' 




INC 


FATFLG 


1 ERROR COUNT 




034342 








ERRHRD 


ERRNO. T30B0T .EXPREC 


iTAPE NOT AT BOT AFTEP REMIND 




034342 


104456 










TRAP 


CIERHRO 


034344 


000342 










.UORD 


226 


034346 


037631' 










.WORD 


T30BOT 


034350 


015364* 










.WORD 


EXPREC 


034352 






180 »: 


CKLOOP 




iLOOP IF SELECTED 




034352 


104406 










TRAP 


C»CLP1 


034354 


012737 


000002 


036444' 


MOV 


♦2.T30FCN 


:SET TO NUMBER OF SKIP "FILES" 




034362 


012703 


036426' 




MOV 


♦T30IMV.R3 


iSET UP POINTER TO COTtlANO TABLE 


034366 


013737 


002174* 


036300' 


MOV 


UNITN.T30DSU 


iSET UP UNIT NUMBER 




034374 


011337 


036276' 


1821: 


MOV 


(R3).T30eTM 


iGET NEXT COMMAND 




034400 


012704 


036260' 




MOV 


#T30PACKET.R4 


{SUBROUTINE NEEDS JACKET ADDRESS 



i ISSUE yRITE CHARACTERISTICS COMMAND 



004737 010552' 
103407 

005237 002214' 
010001 

104456 
000343 
005046' 
011724' 

104406 



188 »: 



JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 



PC.URTCHR 
168 1 
FATFLG 
RO.Rl 

ERRNO . URTMSG . SF IMSG 



t ISSUE URI1E CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 

I ERROR COUNT 
I SAVE CONTENTS OF TSSR 
lURITE CHARACTERISTISC FAILED 

TRAP 
.MORD 
.UORD 
WORD 

I LOOP IF SELECTED 

TRAP 



CSERHRO 
227 

URTMSG 
SFIMSG 

C«CLP1 



jSKJP TAPE HARK,ACK.CVC-1 COMMAND 



I<9 



TEST 
TEST 



HAROUARE TEST I 8 TEST MACRO Mil IS 
SKIP TAPE MARKS 



01 -FEB 84 18:55 



SEQ 114 



1323 
1324 



1325 


034432 


012737 


141010 


036410* 




MOV 


1*141010, T30PK3 


iSKIP TAPE MARK.ACK.CVC- 


1 COMMAND 


1326 


034440 


013737 


036444- 


036412- 




MOV 


T30FCN.T30RB 


iSET UP NUMBER TO SKIP 






1327 


034446 


012704 


036410' 






MOV 


♦T30PK3,R4 


iSET UP R4 WITH PACKET ADDRESS 




1328 


034452 


010465 


000000 




189$: 


MOV 


R4.TSDB(R5) 


1 ISSUE COMMAND 






1329 


034456 


01273^ 


176750 


036446' 




MOV 


#65000. ,T300LY 


1 SET UP DELAY COUNTER 






1330 


034464 


004737 


016140' 




190*: 


JSR 


PC.HAITF 


(UAIT FOR SSR TO SET 






1331 


034470 


016501 


000002 






MOV 


TSSR(R5),R1 


iPICK UP TSSR 






1332 


034474 


032701 


000200 






BIT 


•SSR.Rl 


lis SSR SET YET 






1333 


034500 


001017 








BNE 


19l» 


tBR. IF SSR IS SET 






1334 


034502 










DELAY 


250 


{CALL DELAY ROUTINE 








034502 


012727 


000250 












MOV 


♦250.(PC)» 




034506 


000000 














.WORD 


0 




034510 


013727 


002116' 












MOV 


L*DLY.(PC)» 




034514 


000000 














.U0R3 


0 




034516 


005367 


177772 












DEC 


-6(PC) 




034522 


001375 














BNE 


.-4 




034524 


005367 


177756 












DEC 


-22(PC) 




034530 


001367 














BNE 


.-20 


1335 


034532 


005337 


036446' 






DEC 


T300LY 


iBUMP DELAY ROUTINE 






1336 


034536 


001352 








BNE 


190$ 


jBR. IF MORE DELAY TO GO 




1337 


034540 


012702 


000200 




191 »: 


MOV 


♦SSR.R2 


iSET UP EXPECTED (SSR ONLY) 




1338 


034544 


020102 








CMP 


R1,R2 


iUAS STATUS GOOD 






1339 


034546 


001406 








BEQ 


192* 


iBR. IF TERMINATION WAS 


GOOD 




1340 


034550 


005237 


002214' 






INC 


FATFLC 


1 ERROR COUNT 






1344 


034554 










ERRHRO 


ERRNO. TSOSKM.PKTSSR 


;TSSR NOT CORRECT AFTER 


SKIP TAPE M. 




03455* 


104456 












TRAPV 


CSERHRD 




034556 


000344 














.UORO 


228 




034560 


036704' 














.UORD 


T30SKM 




034562 


011736' 














.WORD 


M(TSSR 


1345 


034564 








192 1: 


CKLOOP 




(LOOP IF SELECTED 








034564 


104406 














TRAP 


C»CLP1 



1346 
1347 
1348 
1349 

1350 
1351 
1352 



GET EXTENDED STATUS REGISTER Z^IRO (XSTO) FROM MESSAGE BUFFER 



1353 


034566 


013701 


036310' 


MOV 


T306FR»6,R1 


iPICK UP XSTO 




1354 


034572 


010102 




MOV 


R1.R2 


I SET UP EXPECTED 




1355 


034574 


052702 


100000 


BIS 


46IT1S.R2 


;SET TMK BIT IN EXPECTED 




1356 


034600 


020102 




CMP 


H1.R2 


iDOES EXP - REC'D 




1357 


034602 


001406 




SEQ 


195* 


iBR. IF EQUAL (OK) 




1358 


034604 


005237 


002214' 


INC 


FATFLG 


1 ERROR COUNT 




1362 


034610 






ERRHRD 


ERRNO . T30TMK , EXPREC 


iTMK NOT SET AFTER URT TAPE MARK 




034610 


104456 






TRAP 


C *ERHRO 




034612 


000345 








.WORD 


229 




034614 


040304' 








.UORO 


T30TMK 




034616 


015364' 








.UORD 


EXPREC 


1363 


034620 




195 »: 


CKLOOP 




J LOOP IF SELECTED 






034620 


104406 








TRAP 


C»CLP1 


1364 


034622 


012700 


177777 


MOV 


♦177777. RO 


J VALUE TO WRITTEN TO MEMORY 




1365 


034626 


004737 


017314' 


JSR 


PC.FILLMEM 


J FILL MEM WiTM ALL ONES 




1366 


034632 


013737 


003116' 036412' 


MOV 


FREE,T30RB 


t STARTING READ BUFFER ADDRESS 




1367 















L9 



TtST I 
TEST 2: 

1366 
1569 
1570 
1571 
1572 
1575 
1574 
1575 
1576 
1577 
1578 
1579 
1560 
1561 
1582 
1565 
1567 



HARDWARE TEST I 3 TEST MACRO Mill 3 
SKIP TAPE MARKS 



01 FEB 84 18:S5 



SEQ 115 



{READ FORWARD. ACK.CVC-1 COMMAND 



054640 
034646 
054652 
054660 
034664 
034670 
034^74 
034700 
034702 
034704 
034710 
034710 
054712 
034714 
034716 
1366 034720 
034720 



1389 
1390 
1391 
1392 
1393 
1597 



034722 
034726 
034752 
054754 
054756 
034742 
034742 
034744 
034746 
054750 



012757 140001 056410' 

012704 056410' 

012757 000024 056416' 

010465 000000 

004757 016140' 

016501 000002 

012702 000200 
020102 
001406 

005237 002214' 



104456 
000346 

037203' 
011756' 

104406 

017701 
012702 
020102 
001006 
005237 

104456 
000347 
040660' 
015364' 



MOV 


♦140001. T50PK5 


;READ FOR WARD. ACK.CVC-1 COMMAND 


MOV 


«T30PK5,R4 


sSET UP R4 UITM PACKET ADDRESS 


MOV 


«20. .T50SZ 


iSET UP RECORD SIZE IN PACKET 


MOV 


R4.TSDB(R5) 


1 ISSUE COMMAND 


JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 


MOV 


TSSRCR5).Rl 


iGET TSSR CONTENTS 


MOV 


•SSR.R2 


(SET UP EXPECTED 


CMP 


R1.R2 


:ARE THEY EQUAL 


BEQ 


2001 


iBR. IF OK 


INC 


FATFLG 


{ERROR COUNT 


ERRHRO 


ERRNO . T50RDF . PKTSSR 


(TSSP INCORRECT AFTER WRITE DATA 



200$: 



TRAP 
.WORD 
.WORD 
.WORD 



146170 
177777 



002214' 



CKLOOP 




(LOOP IF SELECTED 

TRAP 


MOV 


SFREE.Rl 


t FIRST LOC IN R£AD BUFFER 


MOV 


♦177777. R2 


lEXPECTEO IF NO DATA TRANS. 


CMP 


R1.R2 


iDIO ANY DATA GET TRANSFERRED 
iBR. IF NO DATA TRANS (GOOD) 


BNE 


220 1 


INC 


FATFLG 


t ERROR COUNT 


ERRHRO 


ERRNO . T50DTR . EXPREC 


:OATA TRANSFERRED ON READ TAPE 



CIERHRD 
250 
T5OR0F 
PKTSSR 

C$CLP1 



TRAP 
.WORD 
.WORD 
WORD 



CtERHRD 
231 

T30DTR 



1598 


054752 




220t: 


CKLOOP 




;L00P IF SELECTED 




1599 


054752 


104406 








TRAP 


C»CLP1 


034754 


015702 


036444' 


MOV 


T50FCN.R2 


(GET NUMBER OF SKIPS 




1400 


054760 


005202 




INC 


R2 


iSET TO CORRECT FILE VALUE 




1401 


054762 


000502 




SUA8 


R2 


:SWAP BUE HALVES 




1402 


054764 


052702 


000001 


BIS 


♦6IT0.R2 


4 SET FOR RECORD ♦I 




1405 


054770 


017701 


146122 


MOV 


SFREE.Rl 


:GET INFO FROM BUFFER 




1404 


034774 


020201 




CMP 


R2.R1 


lARE THEY EQUAL 




1405 


054776 


001406 




BEQ 


228« 


iBR. IF EQUAL (OK) 




1406 


055000 


005237 


002214' 


INC 


FATFLG 


I ERROR COUNT 




1410 


055004 






ERRHRO 


ERRNO . T50PTB . EXPREC 


:RECORD POSITION WAS NOT CORRECT 




055004 


104456 








TRAP 


CSERHRD 




055006 


000550 








.WORD 


25? 




055010 


057052' 








.WORD 


T50PTB 




055012 


015564' 








.WORD 


EXPREC 


1411 


055014 




226 1: 


CKLOOP 




iLOOP IF SELECTED 






055014 


104406 








TRAP 


C$CLP1 



1412 
1415 
1414 
1415 
1416 
1417 
1418 



t ********************************************************* 

ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 



h9 



TEST 
TEST 



^Z' SKI^^TS^E^M^RKi * ^^^^ MACRO M1115 



01 -FEB -64 16:55 



1419 
1420 
1421 
1422 
1423 
1427 



1426 

1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1436 
1439 
1440 
1441 
1445 



1446 

1447 
1446 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 

1457 



1456 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1466 



03S016 
035022 
035024 
03S026 
035032 
035036 
03S0S6 
035040 
035042 
035044 
035046 
035046 



035050 
035054 
035056 
035062 
035064 
035066 
035072 
035072 
035074 
035076 
035100 
035102 
035102 
035104 
035106 
035110 
035114 
035116 
035122 
035124 
035126 
035132 
035136 
035136 
035140 
035140 
035140 
035142 
035150 
035152 
035156 



004737 010704' 

103411 

010004 

016S01 000002 
005237 002214* 

104456 

000351 

040030' 

011736' 

104406 



013701 
010102 
052702 
020102 
001406 
005237 

104456 

000352 

037631' 

015364' 

104406 

005723 
011301 
020127 
001410 
013701 
000241 
006101 
010137 
000137 

104406 



2301: 



jSR 
BCS 
MOV 
MOV 
INC 

ERRHRD 



CKLOOP 



PC.REUIND 

230t 

R0.R4 

TSSR(R5).Rl 
FATFLG 

ERRNO . T30RWN , PK TSSR 



(CALL TAPE REWIND COfTIANO 
I BR. IF NO PROBLEM 
I SAVE PACKET ADDRESS 

;GET TSSR STATUS 

I ERROR COUNT 
(REWIND NOT ACCEPTED 



I LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



{GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM flESSAGE BUFFER 



036310' 
000002 

002214' 



240$: 



177777 
036444' 



036444' 
034374' 



330$; 



104403 

023727 002214' 000017 
103402 

004737 017074' 



999$; 
I ♦ 



MOV 
MOV 
BIS 
CMP 
BEG 
INC 

ERRHRD 



CKLOOP 

TST 
MOV 
CMP 
BEQ 
MOV 
CLC 
ROL 
MOV 
JMP 

CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



T30BFR*6.R1 

R1.R2 

•6IT1,R2 

R1.R2 

240$ 

FATFLG 

ERRNO. T30B0T.EXPREC 



jPICK UP XSTO 

J SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

J DOES EXP • REC'O 

;BR. IF EQ<JAL (OK) 

: ERROR COUNT 
(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 



sLOOP IF SELECTED 



(R3)* 
CR3).R1 
Rl. 0177777 
330$ 

T30FCN.RI 
Rl 

R1.T30FCN 
162$ 



FATFLG. ♦15. 
999$ 

PC.CKOROP 



TRAP 



SEQ 116 



C$ERHRO 

233 

T30RUN 
PKTSSR 

C$CLP1 



:POINT TO NEXT POSITION 

;GET NEXT COMMAND ETC. 

:ENO OF TABLE MARKER 

sBR. IF AT END OF TABLE 

:GET NUMBER OF SKIPS 

t CLEAR THE CARRY BIT 

(PUSH OVER ONE POSITION 

(PUT BACK IN COUNTER 

:JUMP TO MORE COMMANDS TO DO 

J LOOP IF SELECTED 

TRAP 

}<<<<<<<<<<< END SUBTEST >>>>>> 
L 10045: 

TRAP 

:IS ERROR COUNT AT 25 
(BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



C$ERHRD 
234 
T3080T 
EXPREC 

C$CLP1 



C$CLP1 
> > > > > 

C$ESUB 



{TEST 2. SUBTEST 3 
i 

{VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 
(ISSUED WHILE THE TAPE IS POSITIONED AT BOT CAUSES 



N9 



TESr 
TEST 



HARDUARE TEST 1-8 tpsT MACRO K1113 
SKIP TAPE NARKS 



01 FEB 84 18:55 



SEQ 117 



1469 

1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 



1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 



1486 
1487 
1488 
1492 
1493 



1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1510 
1511 



1512 



035156 
035156 
035156 
035160 
035164 
035170 
035174 
035200 
035206 
035212 
035214 
035214 
055220 
035222 
035226 
035230 
035234 
035236 
035242 
035244 
035250 
035252 
035256 
035260 
035260 
035262 
035264 
035266 
035270 
035270 
035276 



035302 
035306 
035310 
035314 
035316 
035316 
035320 
035322 
035324 
035326 
035326 



:FUNCTION REJECT TERMINATION, WITH THE NON-EXECUTASLE 
;FUNCTION (NEF) ERRW BIT SET. 



104402 

004737 041042' 
005037 036444' 
004737 041134' 
004737 041176' 
012737 176750 036446' 
004737 015664' 
103426 

012727 000250 
000000 

013727 002116' 
000000 

005367 177772 
001375 

005367 177756 
001367 

005337 036446' 
001356 

005237 002214' 
010001 

104455 
000353 
003642' 
011724' 

013737 002174' 036300' 
012704 036260' 



101: 



BGNSUB 



JSR 
CLR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



PC,T30REST 

T30FCN 

PC.T30RT2 

PC.T30RT3 

#65000.. T300LY 

PC.SOFINIT 

201 

250 



20t: 



DEC 
BNE 
INC 
MOV 
ERROF 



MOV 
MOV 



T300LY 
10$ 

FATFLG 
RO.Rl 

ERRNO.SFIERR.SFIMSG 



UNITN.TSOOSW 
«T30PACKET.R4 



!>>>>>>>>>>>> BEGIN SUBTEST >>>> 
T2.3: 

TRAP 

J SET COMMAND PACKET 
J CLEAR FILE COUNTER 
J SET UP OTHER COMMAND PACKET 
»SET UP OTHER COMMAND PACKET 
J SET UP DELAY COUNTER 
;D0 INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
: DELAY ROUTINE CALL 

MOV 
.UORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 

:BUMP COUNTER 

:BR. IF MORE COUNTING TO DO 

: ERROR COUNT 
5 CONTENTS OF TSSR REGISTER 
: FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.UORD 
.WORD 

:SET UP UNIT NUMBER 

; SUBROUTINE NEEDS PACKET ADDRESS 



>>>>>>>> 
OeSUB 



♦250.(PC)» 
0 

L«DLY.fPC)< 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 



OEROF 
235 
SFIERR 
SFIMSG 



I********************************************************* 

I ISSUE URITE CHARACTERISTICS COmfiHO 

i 



004737 010552' 
103407 

005237 002214' 
010001 

104456 
000354 
005046' 
011724' 

104406 



23$: 



JSR 
BCS 
INC 
MOV 

ERRHRD 



CKLOOP 



PC.WRTCHR 
23$ 

FATFLG 
RO.Rl 

ERRNO . WRTMSG , SF IMSG 



: ISSUE WRITE CHARACTERISTICS 
:BR. IF COMMAND ISSUED OK 

J ERROR COUNT 
;SAVE CONTENTS OF TSSR 
: URITE CHARACTERISTISC FAILED 

TRAP 
.UORD 
.UORD 
.WORD 

sLOOP IF SELECTED 

TRAP 



CtERHRD 
236 

URTMSG 
SFIMSG 

CICLPl 



BIO 



TEST 
TEST 



HMOUARE TLST 1 0 TEST MACRO HlllS 
SKIP TAPE HfJWS 



01 FEB -84 16tS5 



SCO 116 



151S 
1514 
1515 
1516 
1517 

isia 

1519 
1520 
1521 
1522 
1S2S 
1524 
1528 



1529 

ISSO 
1531 
15S2 
15SS 
1554 
15SS 
1536 
1537 
1536 
1539 
1540 
1541 
1542 
1546 



1547 

1548 
1549 

1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1568 



035330 
035334 
035336 
035340 
035344 
035350 
035350 
03SSS2 
035354 
035356 
035360 
035360 



035362 
035366 
035370 
035374 
035376 
0S5400 
035404 
0S5404 
035406 
035410 
035412 
035414 
035414 
035416 



035424 
035432 
035436 
035442 
035446 
035452 
035456 
035460 
035462 
055466 



ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 



004737 010704* 

103411 

010004 

016501 000002 
005237 002214* 

104456 

000355 

040030' 

011736* 

104406 



301: 



JSR 
BCS 
NOV 
NOV 
INC 

ERRHRD 



CKLOOP 



PC. REWIND 

3C« 

R0.R4 

TSSR(R5).R1 
FATFLC 

ERRNO. T30RWN.PKTSSR 



I CALL TAPE REWIND COHNANO 
iBR. IF NO PROBLEH 
I GET PACKET ADDRESS 
•GET STATUS REGISTER 
I ERROR COUNT 
iREWIND NOT ACCEPTED 



•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CtER»«D 
237 
T70RWN 
PKTSSR 

CICLPI 



GET EXTENDED STATUS REGISTER 2ER0 (XSTO) FROH MESSAGE BUFFER 



013701 036310* 
010102 

052702 000002 

020102 

001406 

005237 002214* 

104456 

000356 

037631' 

015364* 

104406 

012737 000001 036412' 



401: 



NOV TS08FR»6.R1 

NOV R1.R2 

BIS 48IT1.R2 

CNP R1.R2 

BED 401 

INC FATFLG 

ERRHRD ERRNO. TSOBOT.EXPREC 



CKLOOP 

NOV •1.T30W8 



iPICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

iDOES EXP • REC'D 

iBR. IF EQUAL (OK) 

lERROR COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 

iSET • OF TN TO SKIP 



C«ERHRO 
238 
T30B0T 
EXPREC 

CICLPl 



SKIP TAPE NARK REVERSE .ACK.CVC-1 CQNNAND 



012737 141410 036410' 

012704 036410* 

010465 000000 

004737 016140' 

016501 000002 

012702 100206 
020102 
001406 

005237 002214' 



NOV 


•141410. TS0PK3 


iSKIP TAPE NARK RE VERSE. ACK.CVC'1 CND 


NOV 


•T30PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


NOV 


R4.TS0B(R5) 


1 ISSUE CONNANO 


JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


MOV 


•SSR!SC!BIT1!BIT2.R2 


I SET UP EXPECTED 


CMP 


Rl,R2 


lARE THEt EQUAL 


BEQ 


70 » 


iBR. IF OK 


INC 


FATFLG 


lERROR COUNT 


ERRHRD 


ERRNO. T 5018 T. PKTSSR 


iTSSR INCORRECT AFTER WRITE DATA 



CIO 



1569 

1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1586 



1587 
1588 



1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 



1611 
1612 
1613 
1614 



035466 
035470 
035472 
035474 
035476 
035476 



104456 

000357 

036621- 

011736' 

104406 



701 1 



CKLOOP 



I LOOP ir SELECTED 



TRAP 
.WORD 
.WORD 
.UORO 

TRAP 



SCO 119 

CIERHRD 
239 
T30IBT 
PKTS'^R 

CICLPl 



GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 



035500 
035504 
035506 
035512 
035514 
035516 
035522 
035522 
035524 
035526 
035530 
035532 
0S5532 
035534 
035554 
035534 
035536 
035544 
035546 
03S5S2 



013701 036310' 
010102 

052702 002000 

020102 

001406 

005257 002214* 

104456 

000560 

040566' 

015564- 

104406 



104405 

025727 002214' 000017 
105402 

004757 017074' 



1801: 



9991; 



MUV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



T50BFR»6.R1 

R1.R2 

46IT10.R2 

R1.R2 

1801 

FATFLG 

ERRNO. T50NEF.EXPREC 



iPICK UP XSTO 

I SET UP EXPECTED 

I SET NEF BIT IN EXPECTED 

tOOES EXP - REC'O 

iBR. IF EQUAL (OK) 

I ERROR COUNT 
tTAPE NOT AT NEF 



I LOOP IF SELECTED 



TRAP 
.WORD 
.UORD 
.WORD 

TRAP 



C»ER»«0 
240 

TSONEF 
EXPREC 

C»CLP1 



FATFLG. 415. 
9991 

PC.CKDROP 



{<<<<<<<<<<< END SUBTEST >>>>>>>>>>> 
L 10046: 

TRAP OESUB 
lis ERROR COUNT AT 25 
iBR. IF LESS THMN 25 
(TRY TO DROP THE UNIT 



t ♦ 



035552 
035552 
055552 
055554 
055560 
055564 
035570 



TEST 2. SUBTEST 4 



VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 
ISSUED UHILE THE TAPE TS POSITIONED JUST BEFORE THE 
FIRST RECORD ON ON TAPE (BUT NOT AT dOT) CAUSES TAPE 
STATUS ALERT TERMINATION. WITH THE REVERSE INTO BOT 
(RIB) STATUS BIT SET. 



104402 

004757 041042' 

005057 056444' 

004757 041134' 

004757 041176' 



BGNSUB 



JSR 
CLR 
JSR 
JSR 



PC.T30REST 
T30FCN 
PC,T50RT2 
PC.r50RT5 



!>>>>>>>>>> ' BEGIN SUBTEST »>»■»»>»■»»>»■» 
T2 4* 

TRAP CtBSLS 

I SET COMMAND PACKET 

t CLEAR FILE COUNTER 

I SET UP OTHER COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 



DiO 



TEST 1 HAROWARC TEST 1 8 TEST MACRO MlllS 
TEST 2: SKIP TAPE HARKS 



01 FL8 84 18:55 



SEQ 120 



1615 


035574 


012737 


176750 


036446' 


MOV 


•65000. .T300LY 


1616 


035602 


004737 


015664' 


lot: 


JSR 


PC. SOT INI T 


1617 


035606 


103426 






BCS 


201 


1618 


035610 








DELAY 


250 




035610 


012727 


000250 










035614 


000000 












035616 


013727 


002116' 










035622 


000000 












C 35624 


005367 


177772 










035630 


001375 












035632 


005367 


177756 










035636 


001367 










1619 


035640 


005337 


036446' 




DEC 


T500LV 


1620 


035644 


001356 






BN£ 


101 


1621 


035646 


005237 


002214' 




INC 


FATFLG 


1625 


035652 


010001 






MOV 


RO.Rl 


T626 


035654 








ERROP 


ERRNO , SF lERR . SF IMSG 




035654 


104455 












035656 


000361 












035660 


003642' 












035662 


011724' 










1627 


035664 






20t: 






1628 


03S664 


013737 


002174' 


036300* 


nov 


UNITN.T300SU 


1629 


035672 


012704 


036260' 




HOV 


•TS0PACKET.R4 



I SET UP DELAY COUNTER 

I DO INITIALIZE ON CONTROLLER 

I BR IF INIT WAS OK 

lOELAY ROUTINE CALL 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BN? 

jBUMP COUNTER 

iBR. IF MORE COUNTING TO DO 

J ERROR COUNT 
jCONTENTS OF TSSR REGISTER 
iFATAL ERROR TSSR MAS NOT OK 

TRAP 
.WORD 
.WORD 
.UOPO 



♦250. (PC)* 
0 

LIOLt.(PC)- 
0 

6(PC) 
. 4 

-22(PC) 
. -20 



C»EROF 
241 

SFIERR 
SFIM3G 



1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1643 
1644 



1645 

1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1661 



I SET UP UNIT NUMBER 

iSUeftOUTINE NEEDS PACKET AOOPESS 



ISSUE UNITE CHARACTERISTICS COMMAND 



035676 
035702 
035704 
035710 
035712 
055712 
035714 
035716 
035720 
035722 
055722 



004737 010552* 
103407 

005237 002214* 
010001 

104456 
000362 
005046' 
011724* 

104406 



25$: 



JSR 
BCS 
INC 
HOV 
ERRHRD 



CKLOOP 



PC.WRTCHR 
25$ 

FATFLG 
RO.Rl 

ERRNO.URTMSG.STIMSG 



I ISSUE WRITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 

t ERROR COUNT 
tSAVE CONTENTS OF TSSR 
lURITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.yORD 
.WORD 

iLOOP IF SELECTED 

TRAP 



C$ERHRO 
242 

URTMSG 
SFIMSG 

C$CLPl 



ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 



055724 
055750 
055752 
055734 
055740 
055744 
055744 
055746 



004757 010704* 

105411 

010004 

016501 000002 
005257 002214' 

104456 

000565 



JSR PC. REWIND 

BCS 30$ 

MOV R0.R4 

MOV TSSR(R5),R1 

INC FATFLG 

ERRHRO ERRNO. T30RUN.PK TSSR 



tCALw TAPE REWIND COMMAND 
I BR. IF NO PROBLEM 
(GET PACKET ADDRESS 
jGET STATUS REGISTER 
(ERROR COUNT 
iREWIND NOT ACCEPTED 



TRAP 
.WORD 



C$ERMRD 
243 



ElO 



TEST I - HAROUARE TEST I 8 TEST MACRO M1115 
TEST 2'. SKIP TAPE MARKS 



1662 

1663 
1664 
1665 
1666 
1667 
1666 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1079 



1680 

1691 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1702 



1703 

1704 

1705 
1706 
1707 
1708 
1709 
1710 
1711 



035750 
035752 
035754 
035754 



040050- 
011736* 

104406 



30): 



01 FEB 84 18:55 



CKLOOP 



I LOOP IF SELECTED 



.WORD 
.WORD 

TRAP 



SEQ 121 



TSORUN 
PKTSSR 

C$CLP1 



iGET EXTENDED STATUS REGISTER ZERO (XSTO) FPOM MESSAGE BUFFER 



035756 
035762 
035764 
035770 
035772 
035774 
036000 
036000 
036002 
036004 
036006 
036010 
036010 
036012 
036020 



013701 036310' 
010102 

052702 000002 

020102 

001406 

005237 002214' 

104456 
000364 

037631' 
015364' 

104406 

015737 003116' 036412* 
012737 000400 036416' 



401: 



nov 
nov 

BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 



730BFR*6.R1 

R1.R2 

•BIT1.R2 

R1.R2 

40t 

FATFLG 

ERRNO. T30B0T .EXPREC 



nov 
nov 



FREE.T30UB 
•256..T30SZ 



I PICK UP XSTO 

I SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

lOOCS EXP - REC'D 

tBR. IF EQUAL (OK) 

I ERROR COUNT 

I TAPE NOT AT BOT AFTER REUIND 

TRAP 
.WORD 
.UORU 
.WORD 

I LOOP IF SELECTED 

TRAP 

tSET UP GOOD WRITE BUFFER 
I SET UP SIZE 



CtERKM) 
244 

T30B0T 
EXPREC 

CICLPl 



URITE DATA.ACK.CVC-l CONHAND 



036026 


012737 


140005 036410' 


nov 


•140005. T30PK3 


lURITE DATA.ACK.CVC-l COTtlANO 




036034 


012704 


036410' 


nov 


•T30PK3.R4 


iSET UP R4 yiTH PACKET ADDRESS 




036040 


010465 


000000 


nov 


R4.TSDB(R5) 


1 ISSUE connANO 




036044 


004737 


016140' 


JSR 


PC.UAITF 


jyAIT FOR SSR TO SET 




036050 


016501 


000002 


nov 


TSSR(R5).R1 


iGET TSSR CONTENTS 




036054 


012702 


000200 


nov 


•SSR.R2 


jSET UP EXPECTED 




036060 


020102 




cnp 


R1.R2 


{ARE THEY EQUAL 




036062 


00^406 




BEQ 


701 


tBR. IF OK 




036064 


00b237 


002214' 


INC 


FATFLG 


1 ERROR COUNT 




036070 






ERRHRO 


ERRNO. T30UDD.PKTSSR 


tTSSR INCORRECT AFTER URITE DATA 


036070 


104456 








TRAP 


CtERHRO 


036072 


000365 








.WORD 


245 


036074 


036760' 








.WORD 


T30U00 


036076 


011736' 








UORO 


PKTSSR 


036100 




70»: 


CKLOOP 




J LOOP IF SELECTED 




036100 


104406 








TRAP 


CJCLPl 



SKIP TAPE MARK RE VERSE. ACK.CVC-l COMMAND 



036102 012737 000001 036412' 



MOV 



41.T50UB 



OF TM TO SKIP 



FIO 



TEST 1 - HAAOUMIE TEST 1 
TEST 2: SKIP TAPE MARKS 



8 TEST MACRO Ml 113 01 FEB 84 18:55 



SEQ 122 



1712 036110 


012737 


141410 036410' 


MOV 


•141410. T30PK3 


iSKiP TAPE MARK RE VERSE. ACK.CVC - 


1 CMO 


1713 036116 


012704 


036410' 


MOV 


•T30PK3.R4 


iSET UP R4 'WITH PACKET ADDRESS 




1714 036122 


010465 


000000 


MOV 


R4,TSDB(R5) 


1 ISSUE COMMAND 




1715 036126 


004737 


016140' 


JSR 


PC.WAITF 


lUAIT FOR SSR TO SET 




1716 036132 


016501 


000002 


MOV 


TSSR(R5).R1 


iPICK UP TSSR 




1717 036136 


012702 


100204 


MOV 


«SSR!BIT2!SC.R2 


iSET UP EXPECTED (SSR AND SC ONLY) 


1718 036142 


020102 




CMP 


R1.R2 


lUAS STATUS GOOD 




1719 036144 


001406 




BEQ 


160) 


iBR. IF TERMINATION UAS GOOD 




1720 036146 


005237 


002214' 


INC 


FATFLG 


1 ERROR COUNT 




1724 036152 






ERRHRO 


ERRNO . T30IBU . PK TSSR 


iTSSR NOT CORRECT AFTER URT TAPE M. 


036152 


104456 








TRAP 


CtERHRO 


036154 


000366 








.WORD 


246 


036156 


036450' 








.WORD 


T30IBU 


036160 


011736' 








.WORD 


PKTSSR 


1725 036162 




160*: 


CKLOOP 




(LOOP IF SELECTED 




036162 


104406 








TRAP 


CICLPI 



1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1754 
1755 
1756 
1757 
1758 
1742 



1745 
1744 



1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1755 
1754 
1755 
1756 



1757 
1758 
1759 
1760 



056164 

056170 
036172 
036176 
036200 
036202 
036206 
036206 
036210 
056212 
056214 
056216 
056216 
056220 
056220 
056220 
056222 
056250 
056252 
036256 



056256 
056242 
056244 
056250 
056250 
056252 



GET EXTENDED STATUS REGISTER ZERO (XST5} FROM MESSAGE BUFFER 



015701 036316' 
010102 

052702 000001 

020102 

001406 

005237 002214' 

104456 
000567 
036535' 
01S364' 

104406 



104405 

025727 002214' 000017 
105402 

004737 017074' 



004757 016350* 
103002 

000137 052140' 

104432 
002746 



170»! 



999$; 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC^ 

errhrd 



CKLOOP 
ENOSUB 



CMP 
BLO 
JSR 



T50BFR*14.R1 

R1.R2 

«6IT0.R2 

R1.R2 

170» 

FATFLG 

ERRNO. T30R IB. EXPREC 



iPICK UP XST5 

I SET UP EXPECTED 

iSET RIB BIT IN EXPECTED 

tDOES EXP - REC'O 

tBR. IF EQUAL (OK) 

tERROR COUNT 
(TAPE NOT AT RIB 



•.LOOP IF SELECTED 



TRAP 
.WORD 
.UORO 
.UORD 

TRAP 



CIERHRO 
247 
T50RIB 
EXPREC 

C«CLP1 



{SUBTEST END 

t 

t 

JSR 
BCC 
JMP 

400): EXIT 



FATFLG. #15. 
999) 

PC.CKDROP 



PC.TSTLOOP 
400) 
T5OL00P 
TST 



;<<<<<<<<<<< END SUBTEST >>>>>>>>>>> 
L10047: 

TRAP C<ESUB 
tIS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
tTRY TO DROP THE UNIT 



iDO UE NEED TO ITERATE TEST 
tBR. IF NO LOOP REQUIRED 
(EXECUTE AGAIN 
tALL DONE THIS TEST 

TRAP OEXIT 
.UORO L 10045 



; LOCAL STORAGE FOR THIS TEST 
i 



GiO 



TEST 1 - HARDWARE TEST 1-6 TEST MACRO HlllS Ol-FEB-M 16:55 
TEST 2: SKIP TAPE flARKS 



SEQ 123 



1762 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1780 
1762 
1783 
1784 
1785 
1786 
1787 
1789 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1796 
1799 
1800 
1801 
1802 
1803 
1604 
1805 
1806 
1807 
1608 
1609 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1621 
1822 
1823 



056254 
036260 
036260 
036262 
036264 
036266 
036270 
036270 
036272 
036274 
056276 
036300 
056302 



056564 
056570 
056570 
056572 
056574 
056376 

056400 
056410 
056410 
056412 
056412 
056414 
056416 



056420 
056420 
056421 
056423 
056424 



036426 
056426 
056426 
056450 
056452 
056454 
056456 



056440 
056442 
056444 
056446 



100004 
056270' 
000000 
000012 

056502' 

000000 

000024 

000000 

000000 



100006 
056420' 
000000 
000006 



100205 

003116' 

000000 

000000 



010 
200 
000000 
000000 



000000 
000100 
000200 
000500 
177777 



000000 
000000 
000000 
000000 



.BLKB 
T50PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 

T500ATA: 

.i40R0 
,U0R0 
.MRO 
T50ETM: WORD 
T500SW: .WORD 
TSOBFR: .BLKU 



10- «. TSV267> 

100004 

T30DATA 

0 

10. 

T50BFR 

0 

20. 

0 

0 

25, 



I WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.BLKB 10-<. -TSV2fi7> 



T50PK3: 



T50PK2: 

.WORD 
.WORD 
.WORD 
.WORD 

.BLKB 

.WORD 
T30RB: 

T50UB: .WORD 
.WORD 

T50SZ: .WORD 
.EVEN 

i 
I 

T50eF2: 
T508S0: .BYTE 
T50eSl: .BYTE 
T50S2: .WORD 
T50S5: .WORD 
I 
t 



100006 
T50Br2 
0 
6. 

l0-<.-TSV2e7> 

100205 

FREE 

0 

0 



10 
200 
0 
0 



.EVEN 

;TAPE MOTION PACKET COMMAND VALUES 



T50IMV: 
T50RN: 



T50CNT 
T50CNU 
T50FCN 
T30DLY 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 



000000 
000100 
000200 
000300 
177777 



0 
0 

0 
0 



iCOMMANO PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMAND. WITH 

I ADDRESS OF CHARACf ERISTICS BLOCK 

.STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUF«^£R 
iSKiP TAPE MARK CONTROL 
I SELECT DRIVE 0 
{MESSAGE BUFFER 



t WRITE SUB SYS MEM COMMAND. AND ACK 
{ADDRESS OF SELECT BLOCK DATA 

{SIZE OF DATA PACKET 



{REREAD COnHMD. IE AND ACK 
{ADDRESS OF WRITE BUFFER 
{SIZE OF BUFFER (EXTENT) 



ACK 



(BSELO AREA 
:BSEL1 AREA 
iSEL 2 AREA 
{DATA AREA 



(NEITHER EWB NOR ESS 
{EW8 SET 
{ESS SET 

(BOTH EUB AND ESS SET 
{END OF DATA 



{TAPE TIMER COUNTER STORAGE AREA 
(TAPE TIMER COUNTER STORAGE AREA 
(FILE NUMBER COUNTER 
(DEL AT COUNTER STORAGE 



HIO 



TEST 1 - HARQUARE TEST 1 6 TEST MACRO 11113 Ol-FEB 84 18:55 
TEST 2: SKIP TAPE MARKS 



SEQ 124 



1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1641 
1842 
1643 
1644 
1645 
1646 
1647 
1648 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1660 
1661 
1662 
1663 
1864 
1665 
1666 
1667 
1866 
1669 
1870 
1871 
1872 
1673 
1874 
1875 
1876 
1877 
1878 
1879 
1860 



041042 
041042 
041046 
041052 
041056 
041062 
041064 
041070 
041074 
041076 
041102 
041104 
041110 
041114 



(LOCAL TEXT MESSAGES FOR TEST 







1 ox 
led 


1 ox 
led 




4C<*T7 

• f^dCl^ 




Icc 


111 
111 


1 c\o 
Iwe 








1 


1 o% 
led 


yox 
led 




« Xfc 




1 

le^ 


* ox 


1 OX 
led 




*crT7 

• ^dWlX 


use 'DV 


1 OA 


1 ox 

led 


1 0X 
led 




AQrT7 




1 OA 


1*1 


lOv 




A^rT7 
• n^wiAi 




1 OA 


1*1 


IM) 
lOV 




AQrT7 
• nsciA 


1 CV<<7 


1 0A 


IC^ 


IPS 
lew 








1 OA 


1 OX 
led 


1 0X 
led 








1 OA 


le J 


1 PS 
lew 






nX7A9A 


111 
111 


13* 


ISA 
1 w* 




ASrT7 


nY7^m 


1 Ol 
ic • 


1 OP 

lee 


111 

111 




• nww x& 


(^X7^*v3 


1 OA 
Ic* 


iOX 
led 


led 




• ^dVr XA 


nX7&X1 


It* 


1*1 


lOV 


T30B0T 


.ASCIZ 


037676 

WW 1 W ' w 


1?4 

IC^ 


123 


123 


T30TM: 


.ASCIZ 


037753 


124 


123 


123 


T30TM2 


• .ASCIZ 


040030 


122 


145 


167 


T30RUN 


• .ASCIZ 


040077 


104 


162 


151 


T300FL 


i .ASCIZ 


040152 


124 


123 


123 


T3OU0C 


! .ASCIZ 


040231 


103 


126 


103 


T30VCK 


: .ASCIZ 


040304 


124 


115 


113 


T30TMK 


: .ASCIZ 


040366 


123 


113 


111 


T30NEP 


: .ASCIZ 


040445 


124 


115 


113 


T30RRM 


: .ASCIZ 


040523 


124 


115 


113 


T30RRN 


: .ASCIZ 


040602 


124 


115 


113 


T30RRP 


: .ASCIZ 


040660 


116 


117 


040 


TSOOTR 


: .ASCIZ 


040724 


104 


141 


164 


T300TA 


: .ASCIZ 


041021 


123 


153 


151 


TST30I0: 












.EVEN 



TSSR Incorrect Aft«r SKIP TAPE MARK REVERSE Into BOT- 
RIB Bit (XST3) Failad To S«t Aft«r R«v«rM Into BOT' 
TSSR Incorroet Aftor SKIP TAPE MARK REVERSE At B3T' 
' TSSR Incorr«ct Af tor SKIP TAPE MARK CommtxI' 
' TSSR Not Correct Aftor WRITE DATA ConMond' 

Tap* Not Posit ionod On Corroct Rocord Aftor READ REVERSE 
' Tapo Not Posit ionod On Socond Filo First Record' 
'TSSR Ineorroct Aftor READ FORWARD Into "FiU"' 
'TSSR Ineorroct Aftor SPACE CoMMnd Into TAPE MARK' 
'TSSR Not Corroct Aftor IlIo«ol Mods Bits Sot' 
'Illogal Mod* Bits. Failed To Sot ILC Bit In XSTO' 
'WRITE MISCELLANEOUS CoMMnd Not Accepted' 
•TSSR Not Correct After SKIP TAPE MARKS. At BOT' 
'Tape Not At BOT After REWIND CotRmorvd' 
' TSSR Not Correct After SPACE FORWARD Co«Mnand' 
T :SR Not Correct After SPACE REVERSE CoMmand' 
Ret^ind (POSITION) CoMMnd Not Accepted' 
'Drive 7 Select Failed To Set "OFL" In TSSR' 
' TSSR Not C rrect After WRITE TAPE MARK CoMRond' 
'CVC Set. Oidn"t Reset VCK In Messaoe Buffer' 
'TMK Not Set After WRITE TAPE MARK (RETRY) CoMnand' 
'SKIP TAPE MARKS. At BOT. Failed To Set NEF Bit' 
•TMK Not Set After READ REVERSE Into TAPE MARK' 
'TMK Not Set After SPACE REVERSE Into TAPE MARK- 
'TMK Not Set After READ FORWARD Into TAPE MARK' 
'NO Data Transferred On READ FORWARD' 

'Data Compare Er-^or. Data Read Fron Tape Not Equal To Written' 
.ASCIZ 'Skip Tope Marks' 



i ♦ 

!r0UTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

I WRITE SUBSYSTEM MEMORY COMMAND 

t 

I - 

T30REST: 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 



036260' 

100004 

036270' 

000012 
036302' 

000024 

000000 
000030 
177777 



036302' 64$: 



SAVREG 

MOV #T30PACKET.R1 

MOV «100004.(R1)* 

MOV ffT300ATA.(Rl)* 

CLR (Rl)» 

MOV ♦10.,(R1)» 

MOV »T306FR,(R1)» 

CLR (Rl)» 

MOV «20..(R1)« 

CLR (RD* 

MOV ♦O.(Rl) 

MOV •24.. R2 

MOV ♦177777. r50BFr(R2) 



sSAVE THE REGISTERS 

J START OF THE PACKET 

J WRITE SUBSYSTEM MEM. WITH ACK. 

I ADDRESS OF CHARAISTICS DATA BLOCK 

(EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

(ADDRESS OF MESSAGE BUFFER 

(LENGTH OF MESSAGE BUFFER 

(SELECT DRIVE ZERO 

(NUMBER OF LOCATIONS TO BE CLEARED 

(ALL ONES TO MESSAGE BUFFER 



TEST I - mAROU/WE test I 8 TEST 
TEST <r: SKIP T/W>E MARKS 

1661 041122 005742 

1862 041124 022702 000000 

1665 0411S0 001371 
1864 041132 000207 
1665 

1866 

1667 0411S4 

1666 041154 

1669 041140 012701 036370' 
1690 041144 012721 100006 
1891 041150 012721 036420' 
1692 041154 005021 
1893 041156 012721 000006 
1694 041162 005021 

1895 041164 012701 036420' 

1696 041170 005021 

1697 041172 005011 

1896 041174 000207 
1699 041176 

1900 041176 

1901 041202 012701 036410' 

1902 041206 005021 

1903 041210 005021 

1904 041212 005021 

1905 041214 005011 

1906 041216 000207 

1907 041220 
041220 

041220 104401 

1906 
1909 
1910 
1911 
1912 
1915 
1914 
1915 
1916 
1917 
1916 
1919 
1920 

1921 041222 
041222 

1922 041222 012737 006166' 
1927 041230 012700 046553' 
1926 041234 004737 016402' 

1929 041240 012737 000005 

1930 041246 005037 043146' 
1931 

1932 
1923 

1954 041252 

1955 

1956 

1957 

1956 



110 
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SEQ 125 



TST 
CMP 
BNE 
RTS 



-{R2) 
00. ,R2 
641 
PC 



iNEXT ..OCATION 

(CHECK R2 FOR DONE 
iKEEP GOING UNTIL DONE 
I RE TURN 



T30RT2: 



T50RT3: 



SAVREG 




(SAVE THE REGISTERS 


MOV 


*T50PK2.R1 


>START OF THE PACKET 


MOV 


*100006.(R1)» 


tURITE SUBSYSTEM MEM. WITH ACK. 


MOV 


•T30Br2.(Rl)* 


i ADDRESS OF DATA BLOCK 


CLR 


(RlV 


{EXTENDED ADDRESS 


MOV 


«6. ,(R1)* 


tSIZE OF DATA BLOCK IN BYTES 


CLR 


(RD* 




MOV 


•T30Br2.RI 


t POINT TO DATA SEL AREA 


CLR 


(Rl)» 




CLR 


(Rl) 




RTS 


?C 


(RETURN 


SAVREG 




iSAVE REGISTERS 


MOV 


#T30PK5.R1 


I SET UP POINTER ADDRESS 


CLR 


(RD* 


, COMMAND SPACE 


CLR 


(RD» 


; ADDRESS OF DATA BLOC< 


CLR 


CRD* 


tEXTENDF.D ADDRESS 


CLR 


CRD 


tSIZE OF DATA TRANSFER BLOCK 


RTS 


PC 


t RE TURN 


ENDTST 










L10043: 






TRAP 


.S8TTL 


TEST 5: NO-OP ( 


'CLEAN TAPE") AND INITIALIZE 



CIETST 



THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP C "CLEAN TAPE ') AND INITIALIZE 
COMMAND C SPACE REVERSE. ERASE. URITE DATA) 

THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 



002172' 
002210' 



BGNTST 

MOV 
MOV 
JSR 
MOV 
CLR 



t 

I - 

T51L00P: 



♦EPRTl.EPRTSU 

♦TST51ID.ro 

PC.TSTSETUP 

•5.L00PCNT 

T51CNT 



T3:: 

{PRIMARY ERROR MESSAGE 
lASCII MESSAGE TO IDENTIFY TEST 
tOO INITIAL TEST SETUP 
iPERFORM 5 ITERATIONS 
(CLEAR TAPE RECORD COUNTER 



t ♦ 



I TEST 3. SUBTEST 1 



JIO 



TEST I HARDWARE TEST I 8 TEST MACRO M1115 01 FEB 84 18:55 
TEST 5: NO-OP ("CLEAN TAPE") AND INITIALIZE 



SEQ 126 



1939 
1940 
1941 
1942 
1945 
1944 
1945 
1946 
194 ■• 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 



VERIFIES THAT THE NO-OP COMMANO (CORRESPONDS TO THE CLEAN TAPE 
COMMAND) TERMINATES PROPERLY (NORMAL TERMINATION), STORES PROPER 
STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COMMAND). AND 
INDEED DOES NOT MOVE TAPE. THE TAPE IS FIRST REWOUND AND 
WRITTEN WITH SEQUENCED TEST RECORDS. IT IS THEN REWOUND AGAIN 
AND THE NO-OP COMMAND IS ISSUED. IT IS VERIFIED THAT THE TAPE 
IS STILL AT BOT AND THAT PROPER STATUS IS STORED. THE FIRST 
RECORD ON TAPE IS READ AND VERIFIED (TO CHECK TAPE POSITION AND 
VERIFY THAT DATA WAS NOT CHANGED). THEN THE NO-OP COMMANO IS 
ISSUED AGAIN AND STATUS AND POSITION VERIFIED. 



1957 


041252 








BGNSUB 




!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 




041252 












T3.1: 






041252 


104402 










TRAP 


ctBsue 


1958 


041254 


004737 


046420' 




JSR 


PC.T31REST 


iSET COMMANO PACKET 




1959 


041260 


004737 


046512' 




JSR 


PC.T31RT2 


» SET UP OTHER COMMAND PACKET 




1960 


041264 


004737 


046554' 




JSR 


PC.T31RT5 


1 SET UP OTHER COMMAND PACKET 




1961 


041270 


012737 


176750 


045152' 


MOV 


•65000. .T31DLY 


, SET UP DELAY COUNTER 




1962 


041276 


004737 


015664' 


lot: 


JSR 


PC.SOTINIT 


iDO INITIALIZE ON CONTROLLER 




1963 


041S02 


103426 






BCS 


20$ 


iBR IF INIT WAS OK 




1964 


041304 








DELAY 


250 


t DELAY ABOUT .25 SEC 






041304 


012727 


000250 








MOV 


♦250. (PC)* 




041310 


000000 










.WORD 


0 




041312 


013727 


002116' 








MOV 


LtDLY.(PC). 




041316 


000000 










.WORD 


0 




041320 


005367 


177772 








DEC 


-6(PC) 




041324 


001375 










BNE 


.-4 




041326 


005367 


177756 








DEC 


-22(PC) 




041332 


001367 










BNE 


.-20 


1965 


041334 


005337 


043152' 




DEC 


T31DLY 


{BUMP COUNTER 




1966 


041S40 


001356 






BNE 


lot 


iBR. IF COUNTER NOT DONE 




1967 


041S42 


005237 


002214' 




INC 


FATFLG 


i ERROR COUNT 




1971 


041346 


010001 






MOV 


RO.Rl 


! CONTENTS OF TSSR REGISTER 




1972 


041350 








ERROF 


ERRNO . SF lERR . SF IMSG 


{FATAL ERROR TSSR WAS NOT OK 






041350 


104455 










TRAP 


CtEROF 




041352 


000455 










.WORD 


301 




041354 


003642' 










.WORD 


SFIERR 




041356 


011724' 










.WORD 


SFIMSG 


197? 


041360 


013737 


002174' 


043010' 20»: 


MOV 


UNITN.T31DSU 


1 SET UP UNIT NUMBER IN PACKET 




1974 


041366 


012704 


042770' 




MOV 


•T51PACKET,R4 


: SUBROUTINE NEEDS PACKET ADORES*; 


1975 


041372 


004737 


010552' 




JSR 


PC.WRTCHR 


i ISSUE WRITE CHARACTERISTICS 




1976 


041376 


103407 






BCS 


23 1 


iBR, IF COMMANO ISSUED OK 




1977 


041400 


005237 


002214' 




INC 


FATFLG 


t ERROR COUNT 




1981 


041404 


010001 






MOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 




1982 


041406 








ERRHRD 


ERRNO , WRTMSG . SF IMSG 


1 WRITE CHARACTERISTISC FAILED 






041406 


104456 








TRAP 


CtERHRD 




041410 


000456 










.WORD 


302 




041412 


005046' 










.WORD 


WRTMSG 




041414 


011724- 










.WORD 


SFIMSG 


198S 


041416 






23»: 


CKLOOP 




J LOOP IF SELECTED 





KIO 



TEST 1 
TEST 



- HARDWARE TEST 1-8 TEST MhCRO HlllS Ol-rEB-84 16:55 
3: NO-OP ("CLEAN TAPE") AND INITIALIZE 





041416 


104406 










1984 


041420 


004737 


010704' 




JSR 


PC. REWIND 


1905 


041424 


103407 






BCS 


30$ 


1986 


041426 


010004 






MOV 


R0.R4 


1987 


041430 


005237 


002214* 




INC 


FATFLG 


1991 


041434 








ERRHRD 


ERRN0.T31RWN.PKTSSR 




041434 


104456 












041436 


000457 












041440 


044504' 












041442 


011736' 










1992 


041444 






30$: 


CKLOOP 






041444 


104406 










1993 


041446 


013701 


043020' 




MOV 


T31BrR*6.Rl 


1994 


041452 


010102 






MOV 


R1.R2 


1995 


041454 


052702 


000002 




BIS 


•BIT1.R2 


1996 


041460 


020102 






CMP 


R1.R2 


1997 


041462 


001406 






BEQ 


40$ 


1998 


041464 


005237 


002214' 




INC 


FATFLG 


2002 


041470 








ERRHRD 


ERRN0.T31B0T .EXPREC 




041470 


104456 












041472 


000460 












041474 


044155' 












041476 


015364' 










2003 


041500 






401: 


CKLOOP 






041500 


104406 










2004 


041502 


013737 


003116' 


043122' 


MOV 


FREE.TSIWB 


2005 


041510 


012737 


140005 


043120' 651: 


MOV 


♦140005. T31PK3 


2006 


041516 


012704 


043120' 




MOV 


•T31PK3.R4 


2007 


041522 


012700 


000144 




MOV 


•100.. RO 


2008 


041526 


004737 


017314' 




JSR 


PC.FILLMEM 


2009 


041532 


012737 


000144 


043126' 


MOV 


#100. .T31SZ 


2010 


041540 


010465 


000000 




MOV 


R4.TSDB(R5) 


2011 


041544 


004737 


016140' 




JSR 


PC.WAITF 


2012 


041550 


016501 


000002 




MOV 


TSSR(R5).R1 


2013 


041554 


012702 


000200 




MOV 


•SSR.R2 


2014 


041560 


020102 






CMP 


R1.R2 


2015 


041562 


001406 






BEQ 


80$ 


2016 


041564 


005237 


002214' 




INC 


FATFLG 


2020 


041570 








ERRHRD 


ERRNO . T31WDC . PKTSSK 




041570 


104456 










041572 


000461 












041574 


045040' 












041576 


011736' 










2021 


041600 






80>: 


CKLOOP 






041600 


104406 










2022 


041602 


004737 


010704' 




JSR 


PC. REWIND 


2023 


041606 


103407 






BCS 


230$ 


2024 


041610 


010001 






MOV 


RO.Rl 


2025 


041612 


005237 


002214' 




INC 


FATFLG 


2029 


041616 








ERRHRD 


ERRNO . T31RUN . EXPREC 




041616 


104456 












041620 


000462 












041622 


044504' 












041624 


015364' 










2030 


041626 






230$: 


CKLOOP 






041626 


104406 










2031 


041630 


013701 


043020' 




MOV 


T318FR*6,R1 



SEQ 127 



TRAP C$CLPl 
iCALL TAPE REWIND COMMAND 
iBR. IF NO PROBLEM 
I SET UP REWIND PACKET ADDRESS 

t ERROR COUNT 
I REWIND NOT ACCEPTED 

TRAP C$ERHRO 
.WORD 303 
.WORD T31RWN 
.WORD PKTSSR 

jLOOP IF SELECTED 

TRAP C$CLPl 

I PICK UP XSTO 

J SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

iDOES EXP • REC'O 

iBR. IF EQUAL (OK) 

(ERROR COUNT 

tTAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRO 
.WORD 304 
.WORD T31B0T 
.WORD EXPREC 

J LOOP IF SELECTED 

TRAP C$CLP1 

i STARTING WRITE BUFFER ADDRESS 

jWRITE DATA.CVC-l.ACK COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

;SET PATTERN IN CORRECT REGISTER 

J FILL MEMORY WITH RECORD SIZE 

: SET UP RECORD SIZE IN PACKET 

J ISSUE COMMAND 

:WAIT FOR SSR TO SET 

:GET TSbR CONTENTS 

5 SET UP EXPECTED 

(ARE THEY EQUAL 

:BR. IF OK 

: ERROR COUNT 

}TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
.WORD 305 
.WORD T31W0C 
.WORD PKTSSR 

tLOOP IF SELECTED 

TRAP C$CLP1 
iCALL TAPE REWIND COMMAND 
J BR. IF NO PROBLEM 
jSAVE TSSR 

(ERROR COUNT 
{REWIND NOT ACCEPTED 

TRAP C»ERHR0 
.WORD 306 
.WORD T31RWN 
.WORD EXPREC 

iLOOP IF SELECTED 

TRAP C$CLP1 

J PICK UP XSTO 



TEST I - HARDWARE TEST 1 8 TcST MACRO M1113 Ol-FEB-84 18:55 
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE 



LIO 



2032 
2033 
2034 
2055 
2036 
2040 



2041 

20«2 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2055 



2056 

2057 
2058 
2059 
2060 
2061 
2062 
2066 



2067 

2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2081 



041634 
041636 
041642 
041644 
041646 
041652 
041652 
041654 
041656 
04166C 
0416^ 
041662 
041664 
041672 
04)676 
041702 
041706 
041712 
041716 
041722 
041724 
041726 
041732 
041732 
041734 
041736 
041740 
041742 
041742 
041744 
041750 
041752 
041756 
041760 
041762 
041766 
041766 
041770 
041772 
041774 
041776 
041776 
042000 
042006 
042012 
042020 
042024 
042030 
042034 
042040 
0420«2 
042044 
042050 
042050 
042052 
042054 
042056 



010102 

052702 000002 

020102 

0014C6 

005237 002214' 

104456 
000463 
044155* 
015364' 

104406 



MOV R1.R2 

BIS «eiTl.R2 

CMP R1.R2 

BEQ 240* 

INC FATFLG 

ERRHRD ERRN0.T3160T,EXPREC 





240t: 


CKLOOP 




041012 


043120' 265*: 


MOV 


•041012. T31PK3 


043120' 




MOV 


•T31PK3.R4 


043126' 




MOV 


R3.T31SZ 


000000 




MOV 


R4.TSDB(R5) 


016140' 




JSR 


PC.WAITF 


000002 




MOV 


TSSR(R5).R1 


000200 




MOV 


•SSR.R2 






CMP 


R1.R2 






BEQ 


280* 


002214' 




INC 


FATFLG 






ERRHRD 


ERRNO . T31RDF .PKTSSR 




280*: 


CKLOOP 





020102 
001406 



104456 
000464 
043353' 
011736' 

104406 

013701 043020' 
010102 

052702 000002 

020102 

001406 

005237 002214' 

104456 
000465 
044155' 
015364' 

104406 

012737 140001 043120' 

012704 045120' 

012737 000144 043126' 

010465 000000 

004737 016140' 

016501 000002 

012702 000200 
020102 
001406 

005237 002214' 

104456 
000466 
043154' 
011736' 



2651: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 

ERRHRD 



T31BFR*6.R1 

R1.R2 

«BIT1.R2 

R1.R2 

285* 

FATFLG 

ERRNO. T31B0T.EXPREC 



•140001. T31PK3 

•T31PK3.R4 

•100..T31SZ 

R4.TSDBrR5) 

PC.WAITF 

TSSR(R5).R1 

•SSR.R2 

R1.R2 

290* 

FATFLG 

ERRNC , T31RDE . PKTSSR 



SEQ 128 



t SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

I DOES EXP • REC'O 

tBR. IF EQUAL (OK) 

{ERROR COUNT 

iTAPS NOT AT BOT AFT^R REWIND 

TRAP CIERHRD 
.WORD 307 
.WORD T31B0T 
.WORD EXPREC 

I LOOP IF SELECTED 

TRAP C»CLP1 

iNO-OP.CVC-l COMMAND 

tSET UP R4 WITH PACKET ADDRESS 

; SET UP RECORD SIZE IN PACKET 

t ISSUE COMMAND 

I WAIT FOR SSR TO SET 

I GET TSSR CONTENTS 

tSET UP EXPECTED 

I ARE THEY EQUAL 

;BR. IF OK 

t ERROR COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP C*ERHRD 
.WORD 308 
.WORD T31R0F 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP CtCLPl 

I PICK UP XSTO 

sSET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

jDOES EXP - REC'D 

iBR, IF EQUAL COK) 

(ERROR COUNT 

:TAPE NOT AT BOT AFTER REWIND 

TRAP C*ERHRD 
.WORD 309 
.WORD T31B0T 
.WORD EXPREC 

sLOOP IF SELECTED 

TRAP OCLPl 

:READ.ACK.CVC-1 COMMAND 

tSET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

tWAIT FOR SSR TO SET 

5 GET TSSR CONTENTS 

t SET UP EXPECTED 

lARE THEY EQUAL 

iBR. IF OK 

lERRUR COUNT 

;TSSR INCORRECT AFTER READ DATA 

TRAO C»ERHRD 
.WORD 510 
.WORD T31RDE 
.WORD PKTSSR 



MIO 



TEST 
TEST 



HARDWARE TEST 1-0 TEST MACRO MlllS 01 -FEB 84 18:55 
NO-OP ("CLEAN TAPE" J AND INITIALIZE 



2082 

2083 
2084 
2085 
2086 
2087 
2091 



2092 
2093 



2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 



2113 
2114 
2115 
2116 
2117 
2118 
2122 
2123 



2124 
2125 
2126 
2127 
2128 
2132 
2133 



042060 
042060 
042062 
042066 
042072 
042074 
042076 
042102 
042102 
042104 
042106 
042110 
042112 
042112 
042112 
042112 
042114 
042122 
042124 
042130 



042130 
042130 
042130 
042132 
042136 
042142 
042146 
042152 
042154 
042160 
042162 
042162 
042164 
042166 
042170 
042172 
042200 
042204 
042210 
042212 
042216 
042220 
042220 



104406 

017701 141030 
012702 000144 
020102 
001406 

005237 002214' 

104456 
000467 
043301' 
015364' 



104403 

023727 002214' 000017 
103402 

004737 017074' 



290$: CKLOOP 

MOV 
MOV 



330»: 



BEQ 
INC 

ERRHRO 



ENOSUB 



SFREE.Rl 
4M00. .R2 
R1.R2 
330* 

FATFLG 

ERRNO . T 31UNG . EXPREC 



I LOOP IF SELECTED 

TRAP 

iGET DATA READ 

J READ EXPECTFD 

lOIO TAPE STAY POSITIONED 

jBR. IF EXPD - RECD 

: ERROR COUNT 
sTAPE DATA NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 



SEQ 129 



CICLPI 



CIERHRD 
311 

T31WNC 
EXPREC 



999$! 



CMP 
BLO 
JSR 



FATFLG,#15. 
999$ 

PC.CKOROP 



;>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10051: 

TRAP C$ESUB 
:IS ERROR COUNT AT 25 
sBR. IF LESS THAN 25 
tTRY TO DROP THE UNIT 



TEST 3, SUBTEST 2 



VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP. 
ASSUMING NO MICRODI AGNOSTIC ERRORS ARE PRESENT (THEY UOULD 
ALREADY HAVE BEEN DETECTED IN PREVIOUS TESTS). THE TEST 
SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 



104402 

004737 046420' 
004737 046512' 
004737 046554' 
004737 015664' 
103407 

005237 002214' 
010001 

104455 
000470 
003642' 
011724' 

013737 002174' 043010' 20$; 
012704 042770' 
004737 010552' 
105407 

005237 002214' 
010001 

104456 



BGNSUB 




:>>>>>>>>>>>> BEGIN SUBTEST 






T3.2: 






TRAP 


JSR 


PC, T31REST 


;SET COMMAND PACKET 


JSR 


PC,T31RT2 


sSET UP OTHER COMMAND PACKET 


JSR 


PC.T31RT3 


:SET UP OTHER COMMAND PACKET 


JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 


BCS 


20$ 


:BR IF INIT WAS OK 


INC 


FATFLG 


i ERROR COUNT 


MOV 


RO.Rl 


J CONTENTS OF TSSR REGISTER 


ERROF 


ERRNO . SF lERR . SF IMSG 


s FATAL ERROR TSSR WAS NOT OK 



C$BSUB 



MOV UNITN.T31DSW 

MOV ♦T31PACKET.R4 

JSR PC. WRTCHR 

BCS 23$ 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO, WRTMSG.SF IMSG 



TRAP C$ERDF 
.WORD 312 
. WORD SFIERR 
.WORD SFIMSG 
J SET UP UNIT NUMBER IN PACKET 
J SUBROUTINE NEEDS PACKET ADDRESS 
» ISSUE WRITE CHARACTERISTICS 
;BR. IF COMMAND ISSUED OK 

{ERROR COUNT 
J SAVE CONTENTS OF TSSR 
s WRITE CHARACTERISTISC FAILED 

TRAP C$ERHRD 



NIO 

TEST 1 - HARDUARE TEST 1 8 TEST MACRO ML113 01 -FEB 64 18:55 
TEST S: NO-OP ("CLEAN TAPE") AND INITIALIZE 





042222 


000471 














042224 


005046' 














042226 


011724- 












2134 


042230 








23$: 


CKLOOP 






042230 


104406 












2135 


042232 


004737 


010704' 






JSR 


PC. REWIND 


2136 


042236 


103407 








BCS 


30$ 


2137 


042240 


010004 








MOV 


R0.R4 


2138 


042242 


005237 


002214' 






INC 


FATFLG 


2142 


042246 










ERRHRD 


ERRNO. T31RUN.PKTSSR 




042246 


104456 














042250 


000472 














042252 


044504' 














042254 


011736' 












2143 


042256 








30$: 


CKLOOP 






042256 


104406 












2144 


042260 


013701 


043020' 






MOV 


T31BFR*6.R1 


2145 


042264 


010102 








MOV 


R1,R2 


2146 


042266 


052702 


000002 






BIS 


«6IT1.R2 


2147 


042272 


020102 








CMP 


R1.R2 


2148 


042274 


001406 








BEQ 


40$ 


2149 


042276 


005237 


002214' 






INC 


FATFLG 


2153 


042302 










ERRHRD 


ERRNO. T31B0T .EXPREC 




042302 


104456 














042304 


000473 














042306 


044155' 














042310 


015364* 












2154 


042312 








40$: 


CKLOOP 






042312 


104406 












2155 


042314 


013737 


003116' 


043122' 




MOV 


FREE,T31UB 


2156 


042322 


012737 


140005 


043120' 


65$: 


MOV 


♦140005. T31PK3 


2157 


042330 


012704 


043120' 






MOV 


•T31PK3,R4 


2158 


042334 


012700 


000144 






MOV 


•100. .RO 


2159 


042340 


004737 


017314' 






JSR 


PC.FILLMEM 


2160 


042344 


012737 


000144 


043126' 




MOV 


♦100. .T31SZ 


2161 


042352 


010465 


000000 






MOV 


R4,TSDB(R5) 


2162 


042356 


004737 


016140' 






JSR 


PC.WAITF 


2163 


042362 


016501 


000002 






MOV 


TSSR(R5).R1 


2164 


042366 


012702 


000200 






MOV 


♦SSR.R2 


2165 


042372 


020102 








CMP 


R1.R2 


2166 


042374 


001406 








BEQ 


80$ 


2167 


042376 


005237 


002214' 






INC 


FATFLG 


2171 


042402 










ERRHRD 


ERRNO . T31UDC . PKTSSR 




042402 


104456 














042404 


000474 














042406 


045040' 














042410 


011736' 












2172 


042412 








80$: 


CKLOOP 






042412 


104406 












2173 


042414 


004737 


010704' 






JSR 


PC. REWIND 


2174 


042420 


103407 








BCS 


250$ 


2175 


042422 


010001 








MOV 


RO.Rl 


2176 


042424 


005237 


002214' 






INC 


FATFLG 


2180 


042430 










ERRHRD 


ERRNO. T31RWN, EXPREC 




042430 


104456 












042432 


000475 














042434 


044504' 













SEQ 130 



.WORD 313 
.WORD WRTMSG 
.WORD SFIMSG 

I LOOP IF SELECTED 

TRAP C$CLP1 
(CALL TAPE REWIND COMMAND 
>BR. IF NO PROBLEM 
s SET UP REWIND PACKET ADDRESS 

: ERROR COUNT 
: REWIND NOT ACCEPTED 

TRAP C$ERHRD 
.WORD 314 
.WORD T31RWN 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP C$CLP1 

J PICK UP XSTO 

: SET UP EXPECTED 

J SET BOT BIT IN EXPECTED 

iOOES EXP - REC'D 

;BR, IF EQUAL COK^ 

i ERROR COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 315 
.WORD T31B0T 
.WORD EXPREC 

:L00P IF SELECTED 

TRAP C$CLP1 

{STARTING WRITE BUFFER ADDRESS 

{WRITE DATA.CVC-l.ACK COMMAND 

iSET UP R4 WITH PACKET ADDRESS 

:SET PATTERN IN CORRECT REGISTER 

•.FILL MEMORY WITH RECORD SIZE 

:SET UP RECORD SIZE IN PACKET 

{ISSUE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

{BR. IF OK 

{ERROR COUNT 

{TSSR INCORRECT AFTER WRITE DATA 

TRAP CiERHRD 
.WORD 316 
.WORD T31WDC 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 
{CALL TAPE REWIND COMMAND 
{BR. IF NO PROBLEM 
{SAVE TSSR 

{ERROR COUNT 
{REWIND NOT ACCEPTED 

TRAP C$ERHRD 
.WORD 317 
. WORD T31RWN 
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0424 36 


015364' 










2181 


042440 
042440 


104406 




250 1: 


CKLOOP 




2ia2 


042442 


015701 


043020- 




MOV 


T51BFR.6.R1 


2185 


042446 


010102 






MOV 


Rl.^2 


2184 


042450 


052702 


000002 




BIS 


«BIT1.R2 


218b 


042454 


020102 






CMP 


R1.R2 


2186 


042456 


001406 






BEG 


2401 


2187 


042460 


005237 


002214' 




INC 


FATFLG 


2191 


042464 
042464 
042466 
042470 
042472 


104456 
000476 
044155' 
015364' 






ERRHRO 


ERRNO . T 3 IBOT , E XPRE C 


2192 


042474 
042474 


104406 




2401: 


CKLOOP 




219S 


042476 


012737 


041012 


045120' 2651: 


MOV 


•041012 T51PK5 


2194 


042504 


012704 


043120' 




MOV 


•T51PK5.R4 


2195 


042510 


0I0SS7 


043126' 




MOV 


R3.T31SZ 


2196 


042514 


010465 


000000 




MOV 


R4.TSDB(R5) 


2197 


042520 


004737 


016140' 




JSR 


PC.yAITF 


2198 


042524 


016501 


000002 




MOV 


TSSR(R5),R1 


2199 


042530 


012702 


000200 




MOV 


•SSR.R2 


2200 


042534 


020102 






CMP 


R1.R2 


2201 


042536 


001406 






BEO 


280t 


2202 


042540 


005257 


002214 ' 




INC 


TATFLG 


2206 


042544 








ERR»«)0 


ERRNO. T31RDF .PKTSSR 




042544 


104456 










042546 


000477 












042550 


043355' 












042552 


011736' 










2207 


042554 
042554 


104406 




2801: 


CKLOOP 




2208 


042556 


013701 


043020' 




*ny 


T51BrR*6.Rl 


2209 


042562 


010102 






MOV 


R1.R2 


2210 


042564 


052702 


000002 




BIS 


«6IT1,R2 


2211 


042570 


020102 






CMP 


RI.R2 


2212 


042572 


001406 






BEQ 


2851 


221 S 


042574 


005237 


002214' 




INC 


FATFLG 


2217 


042600 








ERRHRO 


ERRNO . T 5 IBOT . E XPREC 




042600 


104456 










042602 


000500 












042604 


044155' 












042606 


015364' 










2218 


042610 
042610 


104406 




2851: 


CKLOOP 




2219 


042612 


012737 


140001 


045120' 


MOV 


•140001. T 5 IPK 5 


2220 


042620 


012704 


043120' 




MOV 


•T31PK3.R4 


2221 


042624 


012757 


000144 


043126' 


MOV 


♦100..T51S2 


2222 


042652 


010465 


000000 




MOV 


R4.TS0e(R5) 


2221 


042656 


004757 


016140' 




JSR 


PC.WAITF 


2224 


042642 


016501 


000002 




MOV 


TSSR(R5),R1 


2225 


042646 


012702 


000200 




MOV 


•SSR.R2 


2226 


042652 


020102 






CMP 


RI.R2 


2227 


042654 


001406 






BEG 


290 » 


2228 


042656 


005237 


002214' 




INC 


FATFLG 


22S2 


042662 








ERRHRO 


ERRNO. T51RDE. PKTSSR 



SEO 151 



.WORD E XPREC 

I LOOP If SELECTED 

TRAP CfCLPl 

iPICK UP XSTO 

I SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

lOOES EXP - REC'O 

.BR. IF EQUAL fOK^ 

lERROR COUNT 

I TAPE NOT AT BOT AFTER REMIND 

TRAP CIER^«0 
.WORD 518 
.HORD ''IBOT 
.WORD EXPRCC 

iLOOP IF SELECTED 

TRAP C»CLPl 

I INITIALIZE. Cvr-1 COMMAND 

iSET UP R4 UITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

tissue COHMAND 

tUAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

lARE THEY EQUAL 

iBR. IF OK 

I ERROR COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP C4ER^«0 
.WORD 519 
.WORD T51R0F 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CICLPI 

iPICK UP XSTO 

I SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

lOOES EXP - REC'O 

iBR. IF EQUAL (OK) 

I ERROR COUNT 

tTAPE NOT AT BOT AFTER REWIND 

TIAP CIERK>D 
.WORD 320 
.WORD T51B0T 
.WORD E XPREC 

I LOOP IF SELECTED 

TRAP CtClPl 

tREAO.ACK.CVC*l COMMAND 

tSET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

I ISSUE corviANO 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

{ARE THEY EQUAL 

tBR. IF OK 

I ERROR COUNT 
I TSSR INCORRECT AFTER READ DATA 



Cli 
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22SS 

2234 
2255 
2236 
2237 
223b 
2242 



2243 
2244 



2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 



2256 
2257 
2258 
2259 
2261 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2279 
2281 
2282 
2283 



042662 
042664 
042666 
042670 
042672 
042672 
042674 
042700 
042704 
042706 
042710 
042714 
042714 
042716 
042720 
042722 
042724 
042724 
042724 
042724 
042726 
042734 
042736 
04274? 



042742 
042746 
042750 
042754 
042754 
042756 



042760 
042770 
042770 
042772 
042774 
042776 
043000 
043000 
043002 
04 3004 
043006 
043010 
043012 



045074 
043100 
043100 
043102 



104456 

000501 
043154- 

011736' 

104406 

017701 140216 
012702 000144 
020102 
001406 

005237 002214' 

104456 

000502 

043220' 

015364' 



104403 

023727 002214' 000017 
103402 

004737 017074' 



004737 016350' 
103002 

000137 041252' 

104432 

003620 



290$ : CKLOOP 

NOV 
NOV 
CMP 
BEQ 
INC 

ERRHRD 



BFREE.Rl 
•100. .R2 
R1.R2 
330S 

FATFLG 

ERRNO. r31UNH.EXPREC 



330t: 



9991: 

i 
> 



163 S: 



t ♦ 



ENOSUB 



CMP 
BLO 
JSR 



JSR 
BCC 
JMP 
EXIT 



FATFLG, #15. 
9991 

PC.CKDROP 



PC.TSTLOOP 
163t 
T31L00P 
TST 



t LOCAL STORAGE FOR THIS TEST 
i - 



100004 
043000* 
000000 
000012 

043012' 

000000 

000C24 

000000 

JOOOOO 



.BLKB 
T31PACKET: 

.WORD 
.WORD 
.UORO 
.WORD 

T31DATA: 

.WORD 
.WORD 
.WORD 
.WORD 
T31DSU: .WORD 
TSIBFR: .6LKU 



10-«. -TSV2C7> 

100004 

T310ATA 

0 

10. 

T31BFR 
0 

20. 

0 

0 

25. 



I WRITE SUBSYSTEM MEMORY COMMAND PACKET 



T31PK2: 



.BLKB 10- «. TSV2C7> 



SEQ 112 



TRAP CIERHRO 
.WORD 321 
.WORD T31RDE 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CtCLPl 

iGET LATA REhD 

(READ EXPECTED 

I DID TAPE STAY POSITIONCO 

I BR. IF cXPD - RECD 
I ERROR COUNT 

iT-'.PE POSITION NOT CORRECT AFTER IHIT 

TRAP CIERHRD 
.WORD 322 
.WORD T3lW»*i 
.WORD EXPREC 



>>>>>>>>>>>> 



>>>>>>>>>>>> 



END SUBTEST 
L 10052: 

TRAP CtESUB 
J IS ERROR COUNT AT 25 
;BR. If LESS THAW 25 
(TRY TO DROP THE UNIT 



lOO WE NEED TO ITERATE TEST 
I BR. IF NO LOOP REQUIRED 
(EXECUTE AGAIN 
{ALL DONE THIS TEST 

TRAP C»EXIT 
.WORD L10050 



100006 
043130' 



.WORD 
.WORD 



100006 
T31BF2 



I COMMAND PACKET FoR TEST 

jWRITE CHARACTERISTICS COMMAND. WITH 

; ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 
t CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 

•SELECT DRIVE 0 
I MESSAGE BUFFER 



jURITt SUB S>S MEM COMMAND. AND ACK 
I ADDRESS OF SELECT BLOCK DATA 



ACK 



Oil 



sea 133 



^^^4 

2268 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2296 
2299 
2500 
2301 
2502 
2505 
2504 
2505 
2506 
2507 
2506 
2509 
2510 
2511 
2512 
2515 
2514 
2515 
2516 
2517 
2516 
2519 
2520 
2521 
2522 
2525 
2524 
252S 
2526 
2527 
2528 
2529 
2550 
2551 
2552 
2555 
2554 
2355 
2556 
2557 
2556 
2559 
2540 
2341 
2542 



045104 
045106 

045110 
045120 
045120 
043122 
045122 
045124 
045126 



043130 
043150 
045151 
045152 
045134 



C45156 
045140 
045142 
04S144 



045146 
045150 
045152 



000000 
000006 



100005 

005116' 

000000 

000000 



010 
200 
000000 
000000 



100205 
100605 
102205 
177777 



000000 
000000 
000000 



.WORD 
.WORD 

.BLKB 

.UORD 

.WORD 
.WORD 
.WORD 
.EVEN 



0 
6. 

10* . 'SV2£7> 

100005 

FREE 
0 
0 



.BYTE 
.BYTE 
.WORD 
.WORD 



10 
200 
0 
0 



T31PK3: 

T31RB: 
T31UB: 

T51SZ: 

I 

> 

T31BF2 
T31BS0 
T51BS1 
T51S2: 
T51S5: 
i 

' .EVEN 

I TAPE MOTION PACKET COTtlANO VALUES 

T51RN: .WORD 100205 

T51U0R: .WORD 100605 

T51C0N: .UORO 102205 

.MORO 177777 



T51CNT; .UORO 0 
T51CNU: .WORD 0 
T51DLY-. .UORO 0 



!lOCAL TEXT MESSAGES FOR TEST 
I - 



I SIZE OF DATA PACKET 

{REREAD COMMAND. AND ACK 
I ADDRESS OF URITE BUFFER 
I SIZE OF BUFFER C EXTENT) 



iBSELO AREA 
iBSELl AREA 
iSEL 2 AREA 
I DATA AREA 



I REREAD DATA (NEXT) 
(REREAD DATA RETR> 
i URITE CONT INCUS 
I END OF DATA 



{TAPE TIMER COUNTER STORAGE AREA 
(TAPE TIMER COUNTER STORAGE AREA 
J DELAY COUNTER 



045154 


124 


125 


125 


T51R0E 


.ASCI2 


043220 


124 


141 


160 


T51UNH 


.ASCIZ 


045501 


124 


141 


160 


T51UNG 


.ASCIZ 


045555 


124 


125 


125 


T51R0F 


.ASCIZ 


045422 


122 


105 


122 


T51RRF 


.ASCIZ 


045517 


120 


117 


125 


T51SC: 


.ASCIZ 


043601 


i;>2 


111 


102 


T51L0R 


.ASCIZ 


045651 


124 


125 


125 


T51U0F 


.ASCIZ 


045726 


111 


154 


154 


T51L0Q 


.ASCIZ 


044007 


122 


105 


122 


T51SSR 


.ASCIZ 


044045 


124 


125 


125 


T51U0E 


.ASCIZ 


044155 


124 


141 


160 


T31B0T 


.ASCIZ 


044250 


116 


117 


055 


T?1TIM 


.ASCIZ 


044550 


122 


105 


122 


T51E0T 


.ASCIZ 


044427 


124 


125 


125 


T31TM: 


.ASCIZ 


044504 


122 


145 


167 


T51RUN: .ASCIZ 



' TSSR Not Correct After READ CoaaMnd' 

Tap* Position Ineorroct Aftor INITIALIZE CoMMnd' 

Tap* Pooition Incorroct Aftor NOP Co—ond* 
' TSSR Incorroct Af tor READ DATA Co— and" 

'REREAD Proviouo (Spoeo Rovoroo. Rood Forward) Co—and Failed 

POSITION (Space ConMond) Failed. TSSR Not Co-rect 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Correct After Illeoal Mode Bit* Sef 
'Illeoal Mode Bito. Failed To Set ILC Bit In XSTO' 

REREAD COMMAND Not Accepted* 

TSSR Not Correct After NO-OP ("CLEAN TAPE') AND INITIALIZE Co—and.At Bd 
Tape Not At BOT After REUIND Co—and (BOT Noi Set In XSTO) 
NO-OP ("CLEAN TAPE") AND INITIALIZE' S Eraee Tape Not Long Enovjgh 
REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 
' TSSR Not Correct After REREAD COMMAND Reject 
RoMind (POSITION) Co—and Not Accepted' 



Ell 



TEST 1 • HARDWARE TEST 1 S TEST MACRO nillS 01 FEB-64 18:55 
TEST S: NO-OP ( -aEAN TAPE") AND INITIALIZE 



SEQ 154 



234 3 044553 


122 


101 


115 


2344 044626 


124 


123 


123 


2345 044675 


104 


162 


151 


2346 044750 


124 


123 


123 


2347 045040 


124 


123 


123 






lev 




2349 045166 


124 


123 


102 


2350 045241 


127 


122 


111 


2351 045330 


122 


145 


141 


2352 045412 


122 


145 


141 


2353 045474 


122 


145 


163 


2354 045562 


122 


145 


141 


2355 045650 


116 


117 


055 


2356 045771 


124 


123 


123 


2357 046046 


124 


123 


123 


2356 046153 


124 


123 


123 


2359 046256 


104 


141 


164 


2360 046353 


116 


117 


055 


2361 








2362 








2363 








2364 








2365 








2366 








2367 








2366 








2369 046420 








2370 046420 








2371 046424 


012701 


042770* 




2372 046430 


012721 


100004 




2373 046434 


012721 


043000' 




2374 046440 


005021 






2375 046442 


012721 


000012 




2376 046446 


012721 


043012' 




2377 046452 


005021 






2376 046454 


012721 


000024 




2379 046460 


005021 






2360 046462 


012711 


000000 




2381 046466 


012702 


000030 




2382 046472 


012762 


177777 


043012 


2383 046500 


005742 






2384 046502 


022702 


000000 




2385 046506 


001371 






2386 046510 


000207 






2387 








2388 








2389 046512 








2390 046512 








2391 046516 


012701 


043100' 




2392 046522 


012721 


100006 




2393 046526 


012721 


043130' 




2394 046532 


005021 






2395 046534 


012721 


000006 




2396 046540 


005021 






2397 046542 


012701 


043130' 




2398 046546 


005021 






2399 046550 


005011 







T31RNC 
T31An3 
T310FL 
T31UDD 
T31UDC 
T31VCK 
T31BA: 
T31USS 
T31L0N 
T31L0P 
T31PeP 
T31TRL 
T31NEF 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



RAN Error. Correct Data Pat tarn Not In Ram 
TSSR Init. railad Aftar REREAD CONHAND' 
Driva 7 Salact Failatf To S«.t "QFL" In TSSR 
'TSSR Not Corract Aftar REREAD DATA C 
TSSR Not Corract Aftar 
CVC Sat, Oidn* ' t Raaat 
'TSBA Not Corract Aftar 
•WRITE SUBSYSTEM MEMORY 
'Raading Lone Racord Fa! 



SWB Bit Sat' 

REREAD 
VCK In 
REREAD 

CoMnand Not Accaptad (RAM Raad)' 
lad To Sat RLL Bit In XSTO' 



DATA Cow— nd' 
Maoaaoa Buffar' 

DATA Co« 



Raading Long Racord Failod To Sat RLS Bit In XSTO' 
'Raaidual Byta Count Incorract Aftar Short Racord Raad' 
' Raad i no Long Racord Fa,l«d To Giva Tapa Statua Alart' 

'N0-C» '"CLEAN TAPE") AND INITIALIZE. At Flrat Racord. Fa! lad To Sat RIB B't 



T31SCF: .ASCIZ TSSR Not Corract Aftar SPACE RECORDS Coimmn<f 



ASCIZ 
ASCIZ 
.ASCIZ 

.EVEN 



TSSR Not Corract Aftar NO-OP ("CLEAN TAPE") AND INITIALIZE. Into BOT- 
'TSSR Not Corract Aftar NO-OP ("CLEAN TAPE") AND INITIALIZE Command 
'Data CoNipara Error. Date Raad Front Tapa Not E«ial To Writtan 
.ASCIZ 'NO-OP ("Claan Tapa") And INITIALIZE' 



T31TSA 
T31WRF 
T31DTA 
TST31ID: 

I ♦ 

i'rOUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

I WRITE SUBSYSTEM MEMORY COMMAND 

t 

i - 

T31REST: 



64»: 



SAVREG 




(SAVE THE REGISTERS 


MOV 


•T31PACKET.R1 


1 START OF THE PACKET 


MOV 


«100004.(R1)* 


iWRITE SUBSYSTEM MEM. WITH ACK. 


MOV 


•T310ATA.(R1)* 


tA0D5)ESS OF CHARAISTICS DATA BLOCK 


aw 


(Rl)» 


iEXTENOEO ADDRESS 


MOV 


*10..(R1)* 


;SIZE OF DATA BLOCK IN BYTES 


MOV 


«T31BFR.(Rl). 


t ADDRESS OF MESSAGE BUFFER 


CLR 


(Rl)» 




MOV 


♦20..(R1)» 


sLENGTH OF MESSAGE BUFFER 


CLR 


(Rl)» 




MOV 


•O.(Rl) 


J SELECT DRIVE ZERO 


MOV 


«24.,R2 


(NUMBER OF LOCATIONS TO BE CLEARED 


MOV 


•177777. T31BFR(R2) 


lALL ONES TO MESSAGE BUFFER 


TST 


-(R2) 


jNEXT LOCATION 


CMP 


•0.R2 


lAT END OF LOOP YET 


BNE 


64( 


(KEEP GOING UNTIL DONE 


RTS 


PC 


s RE TURN 



T31RT2: 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

CLR 

CLR 



♦T31PK2,R1 

♦100006. (RD* 

♦T31BF2.(R1)» 

(Rl)» 

•6. ,(R1)» 

(RD* 

♦T31BF2.RI 

(Rl)» 

(Rl) 



I SAVE THE REGISTERS 

I START OF THE PACKET 

t WRITE SUBSYSTEM MEM. WITH ACK. 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(POINT TO DATA SEL AREA 



Fll 



TEST 
TEST 



HARDWARE TEST 1-8 TEST MACRO MlllS 01 -FEB 64 16:55 
NO-OP ("CLEAN TAPE") AND INITIALIZE 



SEQ 135 



2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2406 
2409 



2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2426 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2436 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 

2447 

2452 
2453 
2454 
2455 
2456 
2457 



046552 
046554 
046554 
046560 
046564 
046566 
046570 
046572 
046574 
046576 
046576 
046576 



046600 
046600 
046600 
046606 
046612 
046616 
046624 



000207 



012701 043120' 

005021 

005021 

005021 

005011 

000207 



104401 



T51RT3: 



RTS 
SAVREG 

nov 

CLR 
CLR 
CLR 
CLR 
RTS 
ENOTST 



PC 



♦T31PK5.R1 

(Rl)» 

(Rl)» 

CRl)» 

CRD 

PC 



I RE TURN 

I SAVE REGISTERS 

I SET UP POINTER ADDRESS 

» COMMAND SPACE 

I ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

I SIZE OF DATA TRANSFER BLOCK 

; RE TURN 



L 10050: 



*AP 



OETST 



,SBTTL TEST 4: Eras* And Operation Inco«iipUt« 



VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT SOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 
THE FOLLOWING TEST SEQUENCE IS PERFORMED: 

1. THE TAPE IS FIRST REWOUND. SEVERAL TEST RECORDS ARE 
WRITTEN. AND THk. TAPE IS REWOUND AGAIN. 

2. AN ERASE COMMAND IS ISSUED. t*tICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS, 

3. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED 
(BOT SHOULD BE 0). 

4. A READ REVERSE COmANO IS ISSUED. IT IS VERIFIED THAT 
THE COMMAND TERMINATES WITH TAPE STATUS ALERT. THAT THE 
REVERSE INTO BOT CRIB) STATUS BIT IS SET. AND THAT NO 
DATA IS TRANSFERRED. THIS DEMONSTRATES THAT NO DATA 
WAS ENCOUNTERED IN THE AREA ERASED BY THE ERASE 
COMMAND. 



THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 



012737 006166' 002172' 

012700 052460' 

004737 016402' 

012737 000005 002210' 

005037 051330' 



BGNTST 

MOV 
MOV 
JSR 
MOV 
CLR 



«EPRT1.EPRTSW 
♦TST32ID,R0 
PC. TST SETUP 
♦5,L00PCNT 
T32CNT 



T4: . 

(PRIMARY ERROR MESSAGE 

(ASCII MESSAGE TO IDENTIFY TEST 

(DO INITIAL TEST SETUP 

(PERFORM 5 ITERATIONS 

(CLEAR TAPE RECORD COUNTER 



i ♦ 
I 



Gil 



TEST I MAROUARE TEST 1 8 TE! 
TEST 4: ERASE AND OPERATION ] 

245« 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2466 

2469 046630 
24 70 
2471 
2472 
2473 



iT MACRO HU13 
NCOMPLETF 



01 FEB 84 18:55 



SEQ 156 



J TEST 4. SUBTEST 1 



(VERIFIES THAT A Era*« And Operation Incofl«>I«t* COMMAND ISSUED UHlLE 
(THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
i TERMINATION. WITH THE NON-EXECUTABLE FUNCTION (NEF) 
(ERROR BIT SET. 



> - 

T32L00P; 

t 
i 
I 



2474 














!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
















14 . 1 : 




















C$oSUd 


24 73 




004 ( 5f 






ICD 


or TX30PCT 
t 1 OcHcS 1 


( St I CWTIAND r ACKt I 




c4 »0 


/\ J ^ ^ 


AAA 


nQ^& 1 o i 




ICO 


"1. 1 1 Ocn 1 c 


(SET UP OTHER COMMAND PACKET 




24 77 




004 73/ 


052042 




ICD 


, 1 32K 1 3 


(SET UP OTHER COMMAND PACKET 




24 fO 






1 ro r3U 


ACl X'XA • 


nuv 


V03UW . ■ 1 JcUL. T 


(SET UP DELAY COUNTER 




24 '9 




AAA 7 V7 


013004 


1 A* • 


ICD 


DP CnFTMTT 


}D0 INITIALIZE ON CONTROLLER 




2400 


\>4ooo0 








DPC 




tBR IF INIT WAS OK 




2401 


O4o6oc 








nci A V 


230 


i DELAY ABOUT .25 SEC 






046662 


012727 


000250 








MOV 


♦250. CPO- 




O4bo66 


ooww 










.UORO 


0 




AA£^7n 
O4oo f O 


A* *7^7 


002110 








MOV 


L$DLT.(PC)> 




04f>0 74 


AAAAAA 

VKXXXXJ 










.WORD 


0 




V400 lO 


AAC 


\l 1 1 f£ 








DEC 


6(PC) 




O4o f 02 


AA1 V^C 










BNE 


. 4 




nA^7/vA 


AAC 


Iff f DO 








DEC 


22(PC) 




046710 


WX JO • 










BNE 


. -20 


2482 


046712 


005337 


051334- 




DEC 


T32DLY 


iBUMP COUNTEk 




2483 


046716 


001356 






BNE 


101 


iBR. IF COUNTER NOT DONE 




2484 


046720 


005237 


002214* 




INC 


FATFLG 


(ERROR COUNT 




2488 


046724 


010001 






MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




2489 


046726 








ERROT 


ERRNO , SF lERR . SF IMSG 


(FATAL ERROR TSSR UAS NOT OK 






046726 


104455 










TRAP 


C$ERDF 




046730 


000621 










.WORD 


401 




046752 


003642' 










.UORO 


SF lERR 




046734 


011724' 










WORD 


SFIMSG 


2490 


046736 


013737 


002174' 


051160' 20* : 


MOV 


UNITN.T320SU 


(SET UP DRIVE NUMBER 




2491 


046744 


012704 


051140' 




MOV 


0T32PACKET.R4 


(SUBROUTINE NEEDS PACKET ADDRESS 


2492 


046750 


004737 


010552' 




JSR 


PC.WRTCHR 


(ISSUE WRITE CHARACTERISTICS 




2493 


046754 


103407 






BCS 


25$ 


(BR. IF COMMAND ISSUED OK 




2494 


046756 


005237 


002214' 




INC 


FATFLG 


(ERROR COUNT 




2498 


046762 


010001 






MOV 


RO.Rl 


(SAVE CONTENTS OF TSSR 




2499 


046764 








ERRHRO 


ERRNO . URTMSG . SF IMSG 


(WRITE CHARACTERISTISC FAILED 






046764 


104456 








TRAP 


c$ermro 




046766 


000622 










.WORD 


402 




046770 


005046' 










.WORD 


WRTMSG 




046772 


011724' 










.WORD 


SFIMSG 


2500 


046774 






25$: 


CKLOOP 




(LOOP IF SELECTED 






046774 


104406 










TRAP 


C»CLPl 


2501 


046776 


004737 


010704' 




JSR 


PC.REUINO 


(CALL TAPE REWIND COMMAND 





TEST 1 


HARDUARE TEST 


1 8 TEST 








M 1 11^ irp 






1U3*11 








UIUIAM 








A1 CC/\1 


vOOUUc 




^A 7A1 ^ 


/W\C9V7 






7/11 ^ 








7/\« ^ 
'UlO 


1 AAA^JL 

10**30 








UOUOeo 






7/\^^ 


/\d c^A> 








All IXM^ * 
Ul 1 ' AO 
















1 i\AAt^ 




Jit 1 « 




A1 07AV 

vie 'Uo 








A1 »7»7 

U13 ' 3 ' 


005110 






A1 07T7 

Wle » 3 » 


I^wOD 




<%A 7A^A 


A1 3 7AA 
Ule i\f^ 


U^lc f U 




AA 7/\c^ 


A1 AXX7 




<:31o 




A1 AAA^ 


WUUW 


1 T 


AA 7rM^ 


AAA 7X7 






AA7A7A 


A1 &^A1 






CiA 7A7A 

l%J 


A1 37n3 
Ulc ' Ue 






A471 AA 


A3A1 n3 








AAI 






AA 71 AA 


AA^DX7 
\A/3e^ • 






AA 71 1 A 








AA 71 1 A 


1 AAA^J^ 






AA71 1 3 

'lie 


AAtf^3A 






AA71 1 A 
» 1 1* 


A^3Y<iL < 
U3e330 






AA71 1 £». 
' llO 


A1 1 7VJL ' 

vll roo 




eSc ' 


AA71 3A 

» lev 








AA71 3A 
' lev 


1 AAAI'ML 

iu^*vio 






AA 71 D3 
' Ice 


/V\^73T 
UU3 'CO 






f le^ 


UcvOe ' 


OOlOOd 




AA 71 VA 

' ISU 


/V\1 VCI 






AA71 V3 

> 13c 




010704' 




AA 71 XA. 


1 A%A 1 1 






AA 71 AA 


A1iLC/11 


000002 




AA71 


A1 <VkAA 






AA71 

» l^D 


/V\il3V7 
UU3e3r 


002cl4' 




» 19c 








OA 71 


1 AAA<JL 






nA7i 

• 13^ 


AAAA3^ 
UUUOc3 






» 190 


A^l ^3Ai 
U3l9eU 






OA71 


All 7XA • 
Wl 1 / JO 






f lOC 








AA71 A3 

r lOc 








W » lO^ 


A 1 'V 7A 1 
vl5 'vl 


051170 




AA71 7A 


Aim A3 
UlvlVJe 






OA71 73 


OS37A3 
V3C f ve 


OOOOOc 




AA71 7A 


ASAI A3 






» cw 


AA1 AAA 






v^ • eve 


AA^3X7 


/W\331 A ' 












047206 


104456 






047210 


000626 






047212 


052206' 






047214 


015564' 




2551 


04 7216 







26* 



27» 



28 > 



30 > 



40$ 



Hii 



I FEB 84 18:55 



SEQ 137 



BCS 26t 

MOV R0.R4 

MOV TSSR(R5).Rl 

INC FATFLG 

ERRHRD ERRN0.T32RUN.PKTSSR 



jBR. IF NO PROBLEM 

J SET UP REWIND PACKET ADOAESS 

iGET TSSR CONTENTS 

(ERROR COUNT 
(REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



CKLOOP 




(LOOP IF SELECTED 






TRAP ( 


MOV 


•256. .R5 


(STARTING RECORD SIZE 


MOV 


FREE.T32WB 


(STARTING WRITE BUFFER ADDRESS 


MOV 


♦140005, T32PK5 


(WRITE DATA.CVC-l.ACK COMMAND 


MOV 


#T32PK5.R4 


(SET UP R4 WITH PACKET ADDRESS 


MOV 


RS.T52SZ 


(SET UP RECORD SIZE IN PACKET 


MOV 


R4.TS06CR5) 


(ISSUE COMMAND 


JSR 


PC.UAITF 


(WAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


(GET TSSR CONTENTS 


MOV 


•SSR.R2 


(SET UP EXPECTED 


CMP 


R1.R2 


(ARE THEY EQUAL 


BEQ 


28 » 


(BR. IF OK 


INC 


FATFLG 


1 ERROR COUNT 


ERftHRO 


ERRNO . TS2W0C . PK T SSR 


(TSSR INCORRECT AFTER WRITE DATA 



C»ERHRD 
403 
T32RUN 
PKTSSR 

CICLPI 



TRAP 
.WORD 
.WORD 
.WORD 



CKLOOP 




(LOOP IF SELECTED 






TRAP 


TST 


(R3)» 


(BUMP RECORD COUNTER 


CMP 


RS.4514. 


(AT MAX SIZE YET 


BNE 


27» 


(BR. IF NOT AT END OF LOOP 


JSR 


PC. RE WIND 


(CALL TAPE REWIND COMMAND 


BCS 


30 » 


(BR. IF NO PROBLEM 


MOV 


TSSR(R5).R1 


(GET TSSR CONTENTS 


MOV 


R0.R4 


(SET UP REWIND PACKET ADDRESS 


INC 


FATFLG 


(ERROR COUNT 


ERRHRD 


ERRNO . T 32R WN . PK T SSR 


(REWIND NOT ACCEPTED 



OERHRO 
404 

T 32 woe 
PKTSSR 

C»CLPl 



CKLOOP 




(LOOP IF SELECTED 


MOV 


T32BFR.6.RI 


(PICK UP XSTO 


MOV 


R1.R2 


(SET UP EXPECTED 


BIS 


•6IT1.R2 


(SET BOT BIT IN EXPECTED 


CMP 


R1.R2 


(DOES EXP - REC'O 


BEQ 


40 » 


(BR. IF EQUAL COK) 


INC 


FATFLG 


(ERROR COUNT 


ERRHRD 


ERRNO. T32B0E .EXPREC 


(TAPE AT BOT AFTER ERASE 


CKLOOP 




(LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CSERHRD 
405 

T32RWN 
PKTSSR 

CICLPI 



TRAP 
.WORD 
.WORD 
.WORD 



C$EPHRO 
406 
T32B0E 
EXPREC 



TEST 1 - HARDWARE TEST Id TEST MACRO M1113 
TEST 4: ERASE AND OPERATION INCOHPLETE 



2552 
2553 
2554 
2555 
2556 
2557 
2556 
2559 
2560 
2564 



2565 

2566 
2567 
2568 
2569 
2570 
2571 
2575 



2576 

2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2591 



2592 

2593 
2594 

2595 
2596 
2597 
2598 

2602 



047216 
04 7220 
047226 
047252 
04 7236 
047242 
04 7246 
047252 
047254 
047256 
047262 
047262 
047264 
047266 
047270 
047272 
047272 
047274 
047300 
047302 
047306 
047310 
047312 
047316 
047316 
047320 
047322 
047324 
047326 
047326 
047330 
047336 
047344 
047352 
047356 
047362 
047366 
047372 
047376 
047400 
047402 
047406 
047406 
047410 
047412 
047414 
047416 
047416 
047420 
047424 
047426 
047432 
047434 
047436 
047442 
047442 
047444 



104406 

012737 140411 051270' 

012704 051270' 

010465 000000 

004737 016140' 

016501 000002 

012702 000200 
020102 
001406 

005257 002214' 

104456 

000627 

051656' 

011756' 

104406 

015701 051170' 
010102 

042702 000002 

020102 

001406 

005237 002214' 

104456 

000630 

052206' 

015364' 

104406 

013737 003116' 051272' 

012737 140401 051270* 

012737 Ob0400 051276' 

012704 051270' 

010465 000000 

004737 016140' 

016501 000002 

012702 100204 
020102 
001406 

005237 002214' 

104456 

000631 

052131' 

011736' 

104406 

013701 051176' 
010102 

052702 000001 

020102 

001406 

005237 002214' 

104456 

000652 



50«: 



55»: 



1601 



111 

FEB 64 16:55 



SEQ 136 



TRAP 



MOV 


*140411,T32PK3 


lERASE TAPE.CVC'l.ACK COMMAND 


MOV 


♦T52PK5.R4 


iSET UP R4 WITH PACKET ADDRESS 


MOV 


R4.TS0B(R5) 


i ISSUE COMMAND 


JSR 


PC.UAITF 


lUAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


tGET TSSR CONTENTS 


MOV 


•SSR.R2 


1 SET UP EXPECTED 


CMP 


R1.R2 


tARE THET EQUAL 


BEQ 


501 


iBR, IF OK 


INC 


FATFLG 


1 ERROR COUNT 


ERRHRD 


ERRNO. T52ERA.PKTSSR 


iTSSR INCORRECT AFTER ERASE DATA 



C»CLP1 



TRAP 
.UORO 
.WORD 
.UORO 



CKLOOP 




iLOOP IF SELECTED 






TRAP 


MOV 


T32BFR*6.R1 


iPICK UP XSTO 


MOV 


R1.R2 


iSET UP EXPECTED 


BIG 


•8IT1.R2 


iSET SOT BIT IN EXPECTED 


CMP 


R1.R2 


tOOES EXP - REC'D 


BEQ 


5St 


iBR. IF EQUAL (OK) 


INC 


FATFLG 


t ERROR COUNT 


ERRHRO 


ERRNO . T32eOE . EXPREC 


(TAPE NOT AT BOT AFTER REUiND 




TRAP 






.UORO 






.UORO 






.UORO 


CKLOOP 




{LOOP IF SELECTED 






TRAP 



CIERmPO 
407 
T52ERA 
PKTSSR 

CICLPI 



MOV FREE.T32RB 

MOV •140401. T32PK3 

nOV •2S6..T32SZ 

nOV •TS2PK3.R4 

nOV R4.TS0BCR5) 

JSR PC.UAITF 

nOV TSSR(RS).R1 

MOV •SSR!SC!BIT2.R2 

CMP R1.R2 

BEQ 180» 

INC FATFLG 

ERRHRO ERRNO. T32TSA. PKTSSR 



i ADDRESS OF BUFFER 
I RE AO REVERSE. ACK,CVC-1 COMMAND 
tSET UP THE SIZE OF RECORD 
:SET UP R4 UTTH PACKET ADDRESS 
t ISSUE COMMAND 
tUAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
jSET UP EXPECTED TAPE STATUS ALERT 
tARE THEY EQUAL 
:BR. IF OK 

i ERROR COUNT 
c^SSR INCORRECT AFTER READ DATA 



C$ERHRD 
408 

T32B0E 
EXPRCC 

C»CLPl 



CKLOOP 




tLOOP IF SELECTED 


MOV 


T52BFR*14.R1 


iGET XST5 STATUS UORO 


MOV 


R1.R2 


iSET UP EXPECTED 


BIS 


4BIT0.R2 


:SET THE RIB BIT 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


190t 


(BR. IF EQUAL (GOOD) 


INC 


FATFLG 


(ERROR COUNT 


ERRHRO 


ERRNO . T 32R IB .EXPREC 


iRIB SHOULD BE SET 



TRAP 
.UORD 
.UORO 
.UORO 

TRAP 



CtERHRD 
409 

T32TSA 
PKTSSR 

C»CLP1 



TRAP 
.WORD 



CJERHRD 
410 



TEST 1 HAROUAR£ TEST 1 8 TEST MACRO H1115 01 -FEB 18:55 
TEST 4: ERASE AND OPERATION INCOMPLETE 



Jii 



2605 
2604 



047446 
047450 
047452 
047452 
047452 
047452 

2605 047454 

2606 047462 

2607 047464 

2608 047470 
2609 

2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2C38 
2639 
2640 
2641 
2642 
2643 



051756' 
015564- 



104403 

023727 002214' 000017 
103402 

004737 017074' 



.UORO 
.WORD 



SEQ 159 



T52RIB 
EXPREC 



190»! 



ENOSUB 



CMP 

BLO 
JSR 



999»: 



FATFLG.«15. 
999$ 

PC.CKDROP 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10054: 

TRAP C$E5(.e 
lis ERROR COUNT AT 25 
J BR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



TEST 4. SUBTEST 2 



VERIFIES THAT AN ERASE COMMAND EXECUTED UHEN (HE TAPE IS NOT 
POSITIONED AT BOT OPERATES PROPERLY AND DOES NOT CORRUPT 
PREVIOUS TAPE RECORDS. THE TEST SEQUENCE IS: 

1. THE TAPE IS FIRST REWOUND. SEVERAL TEST RECORDS ARE 
URIT-EN. AND THE TAPE IS REWOUND AGAIN. 

2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE 'HE 
TAPE OFF OF BOT AND SKIP OVER THE FIRST SEVERAL 
RECORDS. 

3. AN ERASE COMMAND IS ISSUED. WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 

4. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKFD. 

5. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
NORMAL TERMINATION IS ACCOMPLISHED AND THAT THE DATA 
TRANSFERRED CORRESPONDS TO THAT FOR THE EXPECTED 
RECORD. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 
IN THE AREA ERASED BY THE ERASE COMMAND. AND THAT THE 
PREVIOUS RECORD WAS NOT CORRUPTED. 



2644 


047470 






BGNSUB 




047470 










047470 


104402 






2645 


047472 


004737 


052520' 


JSR 


2646 


047476 


004737 


052612' 


JSR 


2647 


047502 


004737 


052642' 


JSR 


2648 


047506 


004737 


015664' 


JSR 


2649 


047512 


103407 




BCS 


2650 


047514 


005237 


002214- 


INC 


2654 


047520 


010001 




MOV 


2655 


047522 






ERRDF 




047522 


104455 







PC.T32REST 

PC.T32RT2 

PC,T32RT3 

PC.SOFINIT 

201 

FATFLG 
RO.Rl 

ERRNO . SF lERR , SF IMSG 



!>>>>>>>>>>»> BEGIN SUBTEST >»>>>>>>>>>> 
T4.2: 

TRAP C»BSUB 

J SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
J SET UP OTHER COMMAND PACKET 
iDO INITIALIZE ON CONTROLLER 
I BR IF INIT WAS OK 

I ERROR COUNT 
J CONTENTS OF TSSR REGISTER 
:FATAL ERROR TSSR WAS NOT OK 

TRAP C«EROF 



TEST 
TEST 



I - HARDWARE TEST 1 8 TEST MACRO Ml 113 
4: ERASE AND OPERATION INCOMPLETE 





047524 


000633 






047526 


003642' 






047530 


011724' 




2656 


047532 


013737 


002174- 


2657 


047540 


012704 


051140' 


2658 


047544 


004737 


010552' 


2659 


047550 


103407 




2660 


047552 


005237 


002214' 


2664 


047556 


010001 




:?665 


047560 








047560 


104456 






047562 


000634 






047564 


005046' 






047566 


011724' 




2666 


047570 








047570 


104406 




2667 


047572 


004737 


010704' 


2668 


047576 


103407 




2669 


047600 


010004 




2670 


047602 


005237 


002214' 


2674 


047606 








047606 


104456 






047610 


000635 






047612 


051520' 






047614 


011736' 




2675 


047616 








047616 


104406 




2676 


047620 


013701 


051170' 


2677 


047624 


010102 




2678 


047626 


052702 


000002 


2679 


047632 


020102 




2680 


047634 


001406 




2681 


047636 


005237 


002214' 


2685 


047642 








047642 


104456 






047644 


0C0636 






047646 


051336' 






047650 


015364' 




2686 


047652 








04"'652 


104406 




2687 


047654 


012703 


000144 


2688 


047660 


010300 




2689 


047662 


004737 


017314' 


2690 


047666 


013737 


003116' 


2691 


047674 


012737 


140005 


2692 


047702 


012704 


051270' 


2693 


047706 


010300 




2694 


047710 


004737 


017314' 


2695 


047714 


010337 


051276' 


2696 


047720 


010465 


000000 


2697 


047724 


004737 


016140' 


2698 


047730 


016501 


000002 


2699 


047734 


012702 


000200 


2700 


047740 


020102 




2701 


047742 


001406 




2702 


047744 


005237 


002214' 


2706 


047750 







23* 



30$ 



40f 



Kll 

-FEB-84 18:55 



SEQ 140 



MOV 
MOV 
JSR 
BCS 
INC 
MOV 

ERRHRO 



CKLOOP 

JSR 
BCS 
MOV 
INC 

ERRHRO 



CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



UNITr4,T320SU 
*T32PACKET.R4 
PC.URTCHR 
23* 

FATFLG 
RO.Rl 

ERRNO . UR TMSG . SF IMSG 



PC.REUINO 
30* 
R0,R4 
FATFLG 

ERRNO. T32RUN.PKTSSR 



T32BFR»6.R1 

R1.R2 

«eiTl.R2 

R1.R2 

40* 

FATFLG 

ERRNO. T32B0T .EXPREC 



.WORD 411 

.WORD SFIERR 

.WORD SFIMSG 
J SET UP UNIT NUMBER IN PACKET 
(SUBROUTINE NEEDS PACKET ADDRESS 
I ISSUE WRITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 

t ERROR COUNT 
I SAVE CONTENTS OF TSSR 
lURITE CHARACTERISTISC FAILED 

TRAP 

.WORD 

.WORD 

.WORD 

iLOOP IF SELECTED 

TRAP 

iCALL TAPE REWIND COMMAND 
I BR. IF NO PROBLEM 
(SET UP REWIND PACKET ADDRESS 

i ERROR COUNT 
(REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

(PICK UP XSTO 

(SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

(DOES EXP « REC'D 

(BR. IF EQUAL (OK) 

(ERROR COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP C*ERHRO 
.WORD 414 
.WORD T3280T 
.WORD EXPREC 

C*CLP1 



C*ERHRD 
412 

WRTMSG 
SFIMSG 

C*CLP1 



C*ERHRD 
413 
T32RWN 
PKTSSR 

C«CLP1 



CKLOOP 




(LOOP IF SELECTED 






TRAP 1 


MOV 


•100. .R3 


(STARTING RECORD SIZE 


MOV 


R3.R0 


(SET UP MEMORY FILL 


JSR 


PC.FILLMEM 


(CALL MEMORY FILLER 


MOV 


FREE.T32WB 


(STARTING WRITE BUFFER ADDRESS 


MOV 


•140005, T32PK3 


(WRITE DATA.CVC-l.ACK COMMAND 


MOV 


♦T32PK3.R4 


(SET UP R4 WITH PACKET ADDRESS 


MOV 


R3.R0 


(SET PATTERN IN CORRECT REGISTER 


JSR 


PC.FILLMEM 


(FILL MEMORY WITH RECORD SIZE 


MOV 


R3,T32SZ 


(SET UP RECORD SIZE IN PACKET 


MOV 


R4.TSDBCR5) 


(ISSUE COMMAND 


JSR 


PC.WAITF 


(WAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


(GET TSSR CONTENTS 


MOV 


♦SSR.R2 


(SET UP EXPECTED 


CMP 


R1.R2 


(ARE THEY EQUAL 


BEQ 


80* 


(BR, IF OK 


INC 


FATFLG 


(ERROR COUNT 


ERRHRO 


ERRNO. T32U0C.rKTSSR 


(TSSR INCORRECT AFTER WRITE DATA 



Lll 



TEST 1 HAROUARE 
TEST 4 



TEST 1 8 TEST MACRO M1113 
ERASE AND OPERATION INCOriPLETE 



01 -FEB 84 18:55 



SEQ 141 



2707 

2708 
2709 
2710 
2711 
2712 
2713 
2714 
2718 



2719 

2720 
2721 
2722 
2723 
2724 
2725 
2729 



2730 

2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2745 



2746 

2747 
2748 
2749 

^750 
2751 
2/52 



047750 
047752 
047754 
047756 
047760 
047760 
0^7762 
047764 
047770 
047772 
047776 
050000 
050002 
050006 
050006 
050010 
050012 
050014 
050016 
050016 
050020 
050024 
050026 
050032 
050034 
050036 
050042 
050042 
050044 
050046 
050050 
050052 
050052 
050054 
050060 
050064 
050072 
050076 
050102 
050106 
050112 
050116 
050120 
050122 
050126 
050126 
050130 
050132 
050134 
050136 
050136 
050140 
050146 
050154 
050162 
050166 
050172 



104456 

000637 

052356' 

011736' 

104406 
005723 
020327 
001341 
004737 
103407 
010001 
005237 

104456 
000640 
051520' 
015364' 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000641 
051336' 
015364' 

104406 



TRAP 

.UORO 

.UORO 



80ti 



000156 
010704' 

002214' 



CKLOOP 




.WORD 




iLOOP IF SELECTED 


TST 


(R3)» 


TRAP 


iBUMP RECORD SIZE COUNTER 


CMP 


R3,*110. 


|AT 160 SIZE YET 


BNE 


65* 


iBR. IF MORE RECORDS TO URITE 


JSR 


PC, REWIND 


(CALL TAPE REWIND COMMAND 


BCS 


230* 


iBR. IF NO PROBLEM 


MOV 


RO.Rl 


J SAVE TSSR 


INC 


FATFLG 


i ERROR COUNT 


ERRHRO 


ERRNO , T S2RUN . EXPREC 


{REWIND NOT ACCEPTED 



C*ERHRO 
415 
T32UDC 
PKTSSR 

CfCLPl 



230t: 



TRAP 
.WORD 
.WORD 
.WORD 



051170' 
000002 

002214' 



CKLOOP 




iLOOP IF SELECTED 






TRAP 


MOV 


T32BFR*6.R1 


jPICK UP XSTO 


MOV 


R1.R2 


1 SET UP EXPECTED 


3IS 


«BIT1.R2 


iSET SOT BIT IN EXPECTED 


CMP 


R1.R2 


iDOES EXP - REC'D 


BEQ 


240* 


tSR. IF EQUAL (OK) 


INC 


FATFLG 


I ERROR COUNT 


ERRHRD 


ERRNO . T32B0T . EXPREC 


iTAPE NOT AT BOT AFTER REWIND 



C*ERMRO 
416 
TS2RWN 
EaPREC 

CICLPl 



TRAP 
.WORD 
.WORD 
WORD 



240$: 


CKLOOP 




iLOOP IF SELECTED 


000001 






TRAP 


MOV 


♦1.R3 


sSET UP FOR SPACE COMMAND 


010356' 


JSR 


PC. SPACE 


t ISSUE SPACE COrtlAND 1 FORWARD 


140411 051270* 265$: 


MOV 


♦140411.T;2PK3 


(ERASE DATA.ACK COMMAND 


051270' 


MOV 


#T32PK3.R4 


:SET UP R4 WITH PACKET ADDRESS 


000000 


MOV 


R4.TS0B(R5) 


; ISSUE COMMAND 


016140' 


JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 


000002 


MOV 


TSSR(R5).R1 


jGET TSSR CONTENTS 


000200 


MOV 


«SSR.R2 


:SET UP EXPECTED 




CMP 


R1.R2 


;ARE THEY EQUAL 




BEQ 


280* 


:BR. IF OK 


002214' 


INC 


FATFLG 


i ERROR COUNT 




ERRHRD 


ERRNO. T32ERA, PKTSSR 


:TSSR INCORRECT AFTER READ DATA 



C*ERHRD 
417 
TS2B0T 
EXPREC 

CICLPl 



020102 
001406 



104456 
000642 
051636' 
011736' 

104406 

013737 003116' 051272' 

012737 140401 051270' 

012737 000144 051276' 

012704 051270' 

010465 000000 

004737 016140' 



280$ : CKLOOP 

MOV 
MOV 
MOV 
MOV 
MOV 
JSR 



FREE.T32RB 

♦140401, T32PK3 

♦100..T32SZ 

«T32PK3.R4 

R4.TS0B(R5) 

PC.WAITF 



TRAP C$ERHR0 
.WORD 418 
.WORD T32ERA 
.WORD PKTSSR 

J LOOP IF SELECTED 

TRAP C*CLP1 

» ADDRESS OF BUFFER 

{READ RE VERSE, ACK.CVC»1 COMMAND 

.-SET UP THE SIZE OF RECORD 

iSET UP R4 WITH PACKET ADDRESS 

s ISSUE COMMAND 

tWAIT FOR SSR TO SET 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO Ml 113 
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nil 



SEQ 142 



37^X 

C fDj 


7& 


m <^^Ai 




nu V 




. PC T TCCD PHklTCklTC 










At 3 7AO 




MOW 

nuv 




• CP T 1 iD PVDCP Ten TADC 


STATUS ALERT 


C / JJ 




A3A1 AO 




THP 


Pi DO 


■ ADP TMPV P/^IAl 










AA1 




Qpn 

DCU 




. QD TC ni^ 
1 DN k Ir UK 










AA<£OV7 




XNU 


r M 1 r LU 


. CDDAO Pm i^T 
2CHHUK LUUNI 






c 'OX 


A<vA31 






CQDUQn 


FDOKin Pl^TCQD 


• TCQD TklPnODPPT APTCD 


READ DATA 


















TRAP 


CIERHRO 




A^A^OA 












.WORD 


419 
















.WORD 


T32TSA 






At 1 7Til • 

UXX f oo 










• WORD 


PKTSSR 


c 'Oc 


A*\A33& 




son* • 






.1 nnp TP QPi PPTPn 










XU't^UO 










TRAP 


OCLPI 


37AX 
c rOO 




vX f f wX 




MDU 
rivj¥ 


flFDFF R1 


tHPT DATA DP An 






37AA 


A*«n3VA 


vXC f 








• QMHi 1 n DP 1 no 






37A^ 




A3A1 A3 




PHD 


Dl DO 
Hi , He 


« rHPPi^ ' PM m IT 






37AA 




nni AAA 








* RD TP HK 






37A7 
C r o f 




no^3X7 


A * 




r ri 1 r lu 








3771 








PPDHOn 


PDDMn TxoFrr pypDPr 


• PDAQP rOMMAKin HTnia' T 


WORK 








mA4*>A 

XV^"* JO 










TRAP 


CtERHRD 






MVW;44 










.WORD 


420 




OSA3S4 


A^337S' 










.WORD 


T32ECF 






V/X^OO*t 










.WORD 


EXPREC 


c f re 


n*tn3AA 




j\A/# : 






J LOOP IF SELECTED 










XVH^UO 










TRAP 


C»CLPl 


377X 


A^n3A3 




dOVV i 












2774 








ENOSUB 




•>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 




050262 










L 10055: 






050262 


104403 










TRAP 


C«ESUB 


2775 


050264 


023727 


002214' 000017 


CMP 


FATFLG.#15. 


:IS ERROR COUNT AT 25 




2776 


050272 


103402 




BLO 


999 1 


sBR. IF LESS 


THAN 25 




2777 


050274 


004737 


017074' 


JSR 


PC.CKOROP 


;TRY TO DROP 


THE UNIT 




2778 


050300 




999»s 













2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 



< ♦ 

I TEST 

i 

s 



4. SUBTEST 3 

VERIFIES THAT AN ERASE COMMAND ENCOUNTERING THE EOT MARKER. OR 
EXECUTED BEYOND THE EOT MARKER. CAUSES TAPE STATUS ALERT 
TERMINATION WITH THE EOT STATUS BIT SET. ALSO VERIFIES THAT THE 
OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK 
RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION 
INCOMPLETE STATUS. THE FOLLOWING TEST SEQUENCE IS EXECUTED: 

1. THE TAPE IS REWOUND. 

2. ERASE COMMANDS ARE REPEATEDLY ISSUED UNTIL EOT STATUS 
IS SEEN. AN ERROR IS REPORTED IF ANY TERMINATION OTHER 
THAN NORMAL (WITH EOT-0) OR TAPE STATUS ALERT (WITH 
EOT-1) IS ENCOUNTERED. IF THE CONTROLLER OR TRANSPORT 
DOES NOT DETECT THE EOT. THE TRANSPORT WILL FAULT. 
THIS IS REPORTED AS A FATAL ERROR AND THE TEST IS 
ABORTED. 

3. AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION RESULTS. 
WITH EOT-1. 



TEST 1 - HARDWARE TEST 1-6 TEST MACRO Mllli 
TEST 4: ERASE AND OPERATION INCOMPLETE 



2504 

2605 
2606 
2807 
2808 
2809 
2810 
2811 
2812 
2613 
2814 
2815 
2bl6 
2817 



2818 


050300 








050300 








050300 


104402 




2819 


050302 


004737 


052520' 


2820 


050306 


004737 


052612' 


2821 


050312 


004737 


052642 ' 


2822 


050316 


012737 


176750 


2823 050324 


004737 


015664' 


2824 


050330 


103426 




2825 


050332 








050332 


012727 


000250 




050336 


000000 






050340 


013727 


002116' 




050344 


000000 






03034D 


005367 


177772 




050352 


001375 






050354 


005367 


177756 




050360 


001367 




2826 


050362 


005337 


051334' 


2827 


050366 


001356 




2828 


050370 


005237 


002214' 


2832 


050374 


010001 




2833 


050376 








050376 


104455 






050400 


000645 






050402 


003642' 






050404 


011724- 




2834 


050406 


013737 


002174' 


2835 


050414 


052737 


000040 


2836 


050422 


012704 


051140' 


2837 


050426 


004737 


010552' 


2838 


050432 


103407 




2839 


050434 


005237 


002214' 


2643 


050440 


010001 




2844 


050442 








050442 


104456 






050444 


000646 






050446 


005046' 






050450 


011724- 




2845 


050452 








050452 


104406 




2846 


050454 


004737 


010704' 


2847 


050460 


103411 





10$ 



23$ 



Nil 

-FEB 84 18:r5 



SEQ 143 



4. IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS 
(ISSUED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABLE 
ERROR TERMINATION WITH OPI-1: SPACE RECORDS REVERSE 
SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS 
(OPP-0) REREAD PREVIOUS (OPP-1) REREAD NEXT (0PP"1) 
REREAD NEXT (OPP-0) READ NEXT SKIP TAPE MARKS REVERSE 
SKIP TAPE MARKS FORWARD SPACE RECORDS FORWARD WRITE 
DATA RETRY 



BGNSUB 



JSR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAv 



DEC 
BNE 
INC 
MOV 
ERROF 



MOV 
BIS 
MOV 
JSR 
BCS 
INC 
MOV 

ERRHRD 



CKLOOP 

JSR 
BCS 



PC,T32REST 

PC.T32RT2 

PC.T32RT3 

065000. .T32DLY 

PC.SOFINIT 

20$ 

250 



T320LY 
10$ 

FATFL6 
RO.Rl 

ERRNO . SF lERR . SF IMSG 



UNITN,T32DSW 

OBIT5.T320SW 

0T32PACKET.P4 

PC.URTCHR 

23$ 

FATFLG 
RO.Rl 

ERRNO , URTMSG . SFIMSG 



PC. REWIND 
30$ 



:>>>>»>>>>>>> BEGIN SUBTEST 
T4.3: 

TRAP 

J SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP DELAY COUNTER 

J DO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

: DELAY ABOUT .25 SEC 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 

:BUMP COUNTER 

iBR. IF COUNTER NOT DONE 
; ERROR COUNT 

; CONTENTS OF TSSR REGISTER 

:FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

SET UP UNIT (DRIVE) NUMBER 
TURN ON HIGH SPEED TO SAVE TIME 
SUBROUTINE NEEDS PACKET ADDRESS 
ISSUE WRITE CHARACTERISTICS 
BR, IF COMMAND ISSUED OK 

{ERROR COUNT 
;SAVE CONTENTS OF TSSR 
tWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

sLOOP IF SELECTED 

TRAP 

sCALL TAPE REWIND COMMAND 
:BR. IF NO PROBLEM 



>>>>>>>>>>>> 



C$BSUB 



«250.(PC)* 
0 

L$DLY.(PC)< 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 



C$ERDF 
421 

SFIERR 
SFIMSG 



C$ERHRD 
422 

WRTMSG 
SFIMSG 

C$CLP1 



B12 



TEST I 
TEST 4: 

284S 

2S50 
2S54 



2855 

2SS6 
2857 
2856 
2859 
2860 
2861 
2865 



2866 

2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2882 



2883 

2884 

2885 
2886 
2887 
2888 
2889 
2693 



HAROUARE TEST 1-6 TEST flACRO r*1113 
ERASE AND OPERATION INCOMPLETE 



2694 

2695 
2696 



050462 
050466 
050470 
050474 
050474 
050476 
050500 
050502 
050504 
050504 
050506 
050512 
050514 
050520 
050522 
050524 
050530 
0S0S30 
050532 
050534 
050536 
050540 
050540 
050542 
050550 
050554 
050560 
050564 
050570 
050574 
050600 
050602 
050604 
050610 
050612 
050616 
050616 
050620 
050622 
050624 
050626 
050626 
050630 
050634 
050636 
050642 
050644 
050646 
050652 
050652 
050654 
050656 
050660 
050662 
050662 
050664 
050670 



30t: 



016501 000002 
010004 

005237 0>}2214' 

104456 
000647 
051520' 
011736' 

104406 

013701 051170- 
010102 

052702 000002 

020102 

001406 

005237 002214' 



104456 
000650 
051336' 
015364' 

40«: 

104406 

012737 140411 051270' 65*: 

012704 051270' 

010337 051276' 

010465 000000 

004737 016140' 

016501 000002 

012702 000200 

020102 

001757 

032701 000004 
001006 

005237 002214' 

104456 

000651 
052356' 
011736' 



104406 

013701 051170' 
010102 

052702 000001 

020102 

001406 

00S2S7 002214' 

104456 

000652 

051431' 

015364' 

104406 

012703 051300 

013737 003116' 051272 



80* : 



FEB 64 


16:55 






SEO 144 


NOV 


TSSR(R5),R1 


iGET TSSR CONTENTS 






NOV 


R0.R4 


iCET PACKET ADDRESS 






INC 


FATFLG 


1 ERROR COUNT 






ERR»«D 


ERRNO. T32RUN.PKTSSR 


iREUiNO NOT ACCEPTED 












TRAP 


C*ER»«D 








.WORD 


423 








.MORO 


r32RUN 








.UORO 


PKTSSR 


CKLOOP 




iLOOP IF SELPrrc- 












7PAP 


C»CLPl 


NOV 


T32eFR»6.Rl 


iPICK UP XSTO 






NOV 


R1.R2 


1 SET UP EXPECTED 






BIS 


«eiTl.R2 


iSET BOT BIT IN EXPECTED 




CNP 


R1.R2 


iDO£'-> EXP - REC D 






BEQ 


40* 


iBR, IF EQUAL (OK) 






INC 


FATFLG 


1 ERROR COUNT 






ERRHRO 


ERRNO . T 3260 T . E XPREC 


iTAPE NOT AT BOT AFTER 


REWIND 










TRAP 


CIERHRD 








.WORD 


424 








.WORD 


T32B0T 








.WORD 


EXPREC 


CKLOOP 




iLOOP IF SELECTED 












TRAP 


CICLPI 



NOV •140411. T32PK3 

NOV •T32PK3.R4 

NOV R3,T32SZ 

NOV R4.TS0e(R5) 

JSR PC.WAITF 

NOV TSSR(R5).R1 

NOV •SSR.R2 

CMP R1,R2 

BEQ 651 

BIT «6IT2.R1 

BNE 60* 

INC FATFLG 
ERRHRD ERRNO . T 32UDC . PK T SSR 



lERASE DATA.CVC-l.ACK COMMAND 
I SET UP R4 WITH PACKET ADDRESS 
I SET UP RECORD SI2E IN PACKET 
I ISSUE COMMAND 
lUAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
iSET UP EXPECTED 
I ARE THEY EQUAL 
tBR. IF OK 

tCHECK FOR TAPE STATUS ALERT 
iBR. IF TAPE STATUS ALERT SET 

I ERROR COUNT 
I TSSR INCORRECT AFTER WRITE DATA 

TRAP CIERkAO 
.WORD 425 
.WORD T32W0C 
.WORD PKTSSR 



CKLOOP 




.LOOP IF SELECTED 








TRAP 


C«CLP1 


NOV 


r32BFR*6.Rl 


iPICK UP XSTO 




NOV 


R1.R2 


1 SET UP EXPECTED 




BIS 


•eiT0.R2 


iSET EOT BIT IN EXPECTED 




CMP 


Rl.R? 


iDOES EXP • RECD 




BEQ 


240 » 


iBR, IF EQUAL (OK) 




INC 


FATFLG 


1 ERROR COUNT 




ERRHRD 


ERRNO. T32E0T .EXPREC 


iTAPE NOT AT EOT AFTER ERASE 


COMMANDS 



2401: 



CKLOOP 

MOV 
MOV 



•T32CMO,R5 
FREE,TS2RB 



TRAP C*ER»«ID 

.WORD 426 

.WORD TS^EOT 

.WORD EXPREC 

I LOOP IF SELECTED 

TRAP CICLPI 

I STARTING RECORD SI2E 
iSTARTING READ BUFFER ADDRESS 



Cic 



SEQ 145 



2897 

2S99 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2906 
2909 



2910 
2911 
2912 
2916 



2917 

2916 
2919 
2920 
2921 
2922 
2923 
2927 



2926 

2929 
2950 
2931 
2932 



2933 
2954 
2955 
2936 
2957 
2956 
2959 



050676 
050702 
050706 
050712 
050716 
050724 
050750 
050756 
050742 
050746 
050752 
050754 
050756 
050756 
050762 
050764 
050770 
050772 
050776 
051000 
051004 
051006 
051012 
051014 
051020 
051020 
051022 
051024 
051026 
051050 
051050 
051052 
051056 
051040 
051044 
051046 
051050 
051054 
051054 
051056 
051060 
051062 
051064 
051064 
051066 
051070 
051074 
051076 
051076 
051076 
051100 
051106 
051110 
051114 



011557 051270' 265$: 

012704 051270' 

012700 177777 

004757 017514' 

012757 000144 051276* 

010465 000000 

012757 000062 051554' 

004757 016140' 270* ; 

016501 000002 

012702 100214 

020102 

001425 



012727 
000000 
015727 
000000 
005567 
001575 
005567 
001567 
005557 
001551 
005257 

104456 

000655 

052275' 

011756' 



000250 

002116- 

177772 

177756 

051554' 

002214' 



MOV 


(R5).T52PK3 


iREAO DATA.ACK COMMAND 


nov 


•T32PK5.R4 


iSET UP R4 UITM PACKET ADDRESS 


NOV 


♦177777. RO 


iSET PATTERN IN CORRECT REGISTER 


JSR 


PC.FILi.MEM 


iTlLL MEMORY' UITM ALL ONES 


NOV 


•100. .r52SZ 


iSET UP RECORD SIZE IN PACKET 


NOV 


R4,TSDB(R5) 


1 ISSUE COMMAND 


NOV 


♦50..T520Ly 


iSET UP DELAY COUNTER 


JSR 


PC.WAITr 


iWAIT FOR SSR TO SET 


NOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


NOV 


*SSR!SCtBIT2!BIT5.R2 


1 SET UP EXPECTED 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


260 » 


iBR. IF OK 


DELAY 


250 


iDELAY FOR SSR TO BE SET 



DEC T32DLY 

BNE 270t 

INC FATFLG 

ERRHRD ERRN0.T52ECF.PKTSSR 



MOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

iCOUNT DELAY ROUTINE DOUN 
I BR. IF DELAY HAS NOT ENDED 

i ERROR COUNT 
I TSSR INCORRECT AFTER HEAD DATA 

TRAP 
.UORO 
.WORD 
.UORD 





2601: 


CKLOOP 




iLOOP if SELECTED 




104406 










TRAP 


015701 


051176' 


MOV 


T526FR*14.Rl 


iPICK UP XST5 




010102 




NOV 


R1.R2 


I SET UP EXPECTED 




052702 


000100 


BIS 


♦6IT6.R2 


iSET OPI BIT IN EXPECTED 


020102 




CMP 


R1.R2 


lis OPI BIT SET 




001406 




BEQ 


2901 


iBR. IF BIT IS SET 




005257 


002214' 


INC 


fATFLG 


lERROR COUNT 








ERRHRD 


ERRNO. T520PI .EXPREC 


lOPI BIT NOT SET 




104456 






TRAP 


000654 










.WORD 


052425' 










.UORD 


015564' 










.UORD 




2901: 


CKLOOP 




iLOOP IF SELECTED 




104406 








TRAP 


005725 




TST 


(R5). 


iBUMP COMNAND POINTER 




021327 


177777 


CNP 


(R5). #177777 


lAT END OF TABLE YET 




001500 




BNE 


2651 


(BR. KEEP TRYING CONNANDS 






ENOSUB 




•>>>>>>>>»>>> END SUBTEST >»> 










L 10056: 




104403 










TRAP 


023727 


002214' 000017 


CNP 


FATFLG. #15. 


lis ERROR COUNT 


AT 25 


105402 




BLO 


999* 


iBR. IF LESS THAN 25 


004757 


017074- 


JSR 


PC.CKDROP 


iTRv TO DROP THE 


: UNIT 




999*: 











•250. (PC)' 
0 

L*DLY.CPC)' 
0 

-6(PC) 
. -4 

-22CPC) 
.-20 



C*ERHRD 
427 

T52ECF 
PKTSSR 



C*CLP1 



C*ERHRD 
426 
T520PI 
EXPREC 

CICLPI 



CtESUB 



Di2 



^4AO 






1 








t k 








JSR 


PC TSTLQOP 


iDO NEFD TO TTFRATF TF^T 




lev 






BCC 

WWW 


1631 


■ RR ir MO 1 OOP Rf (^iTRFO 














ICAC.LVIC HOMIN 








1 fsX t • 


P VTT 
C aX 1 


TCT 


, A! , nnMC tmtc tcct 














TOAD rtCvTT 




































i ♦ 








7 

f 






iLOCAL 


STORAGE 


run lrlX9 1 w3 ■ 










1 - 
















.BLKB 


XV ^ • ■ JVCO* ' 










T32PACKET: 














.UORO 


i WW** 












.UOND 




iAOORF<;^ OF rHARacTFRT<;TTr<; m opk 




A^l 144 






.UORO 


A 
V 






Ml 144t 






.UORO 




1 STARTING WALUE OF 9L0CK 

1 J 1 1 xr^j w nL>>^w ^w ww^^ J A J- w 




nsi 1 v> 




TS20ATA: 




iCHARACTERtSTTC^ LATA BLOCK 




n^i ISO 






.UORO 


T32BFB 


lADORE^^ GF ME^^ACE BUFFER 










.UORO 


0 






V3113^ 






.UORO 


20. 






AS1 ISA 


www 




.UORO 


0 






OS1 1 tJ[\ 


www 


T3%SU> 


.UORO 


0 


i<;piprT nQTwF o 

1 ^wwCw < l/nA Vw V 


C TV J 






TS2BFR: 


.BLKU 


25. 
























!uRZTE 


SUBSYSTEM MEMORY COMMAND PACKET 










1 










OS1 344 






.BLKB 


10- <. rSV267> 




C * ' w 






T32PK2: 








t * • 1 




1 wwo 




.UORO 


100006 




» c 


OS1 

w^lc3c 






.UORO 


0 


• AnnRp<;^ nr <;piprT ri nrw data 


397 S 


V31c3^ 


vwwv 




.UORO 


0 




P474 


OS IPSA 


www 




.UORO 


6. 


i^T7F OF DATA PACKF T 


P975 

c 7 r ^ 














C~ r f 


nsi otsC\ 

v31cW 






.BLKB 


10-<. -TSV267> 




c * » » 


OSt37ft 




TS2PKS: 










OS1 P70 
V31£ (V 


xwws 




.UORO 


100005 


f RPRP An rOMHANn AND ACK 




OSl P73 




T32Re: 










OSl P75 




T32UB: 


.UORO 


f^REE 


1 AnnRFQ<; HP URT TP RlfPFR 




OS1974 






.UORO 


0 






0S1P7#> 


WWvIV 


T32S2: 


.UORO 


0 


t<;T7F HF RliFPFR fPXTFMT) 


TV -J 








.EVEN 












t 














1 














i 








39A9 






• 








2490 






t 








PMl 








.EVEN 






c 






I TAPE HOTION PACKET COnMANO VALUES 




2993 














2994 


ostsoo 




T32CM0: 








2995 


osisoo 


140410 




.UORO 


140410 


1 SPACE RECORDS REVERSE 


2996 


051302 


141410 




.UORO 


141410 


iSKlP TAPE MARKS PEVERSE 


2997 


05 1304 


140401 




.UORO 


140401 


(READ REVERSE 


2996 


051306 


141001 




.UORO 


141001 


1 REREAD PREVIOUS (OPP»0) 


2999 


051310 


161401 




.UORO 


161401 


, REREAD NEXT (OPP-1) 


5000 


051312 


161001 




.UORO 


161001 


iREREAO PREVIOUS (OPP-11 



Ei2 



TEST 
TEST 



HARDWARE TEST 1 8 TEST MACRO MlllS 
ERASE AM) OPERATION INCOMPLETE 



01 FEB M 18:55 



SEQ 147 



5001 
S002 
3003 
5004 
3005 
5006 
5C37 
3006 
3009 
5010 
5011 
5012 
5015 
5014 
5015 
5016 
5017 
5010 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5050 
5051 
5052 
5053 
5034 
3035 
3056 
5057 
5038 
5039 
3040 
3041 
5042 
5043 
3044 
3045 
5046 
5047 
3048 
3049 
3050 
5051 
5052 
5055 
5054 
5055 
5056 
3057 



051314 
051316 
051520 
051322 
051324 
051526 



051330 
051352 
051334 



141401 
140001 
141410 
141010 
141005 
177777 



000000 
000000 
000000 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



141401 
140001 
141410 
141010 
141005 
177777 



T32CNT 
T32CNU 
T320LY 



.WORD 0 
.WORD 0 
.WORD 0 



iREREAO NEXT (OPP-0) 
iREAD NEXT 

iSkIP tape marks REVERSE 
I SKIP RECORDS FORWARD 
lURITE DATA RETRf 
lENO » DATA 



(TAPE TIMER COUNTER STORAGE AREA 
(TAPE TIMER COUNTER STORAGE AREA 
iDELAY COUNTER 



! LOCAL TEXT MESSAGES FOR TEST 



0513S6 


124 


141 


160 


TS2e0T: 


051431 


124 


141 


160 


T52E0T: 


051520 


122 


145 


167 


T52RUN: 


051567 


124 


125 


125 


T32AM3: 


051636 


124 


125 


123 


T32ERA: 


051705 


124 


125 


102 


TS28A: 


051756 


122 


105 


101 


T32RIB: 


052054 


124 


125 


123 


T32SCF: 


052131 


124 


125 


125 


T32TSA: 


052206 


102 


117 


124 


TS2B0E: 


052275 


105 


122 


101 


T32ECF: 


052356 


124 


125 


125 


T32UDC; 


052425 


117 


120 


111 


T320PI: 


052460 


105 


162 


141 


TST52ID 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 

.EVEN 
i ♦ 

IrOUTINE to restore COMMAND PACKET TO START-UP (DEFAULT) 

i WRITE SUBSYSTEM MEhdRY COMMAND 

t 



'Tap* Not At POT Aft«r REWIND CoMRWxi (BOT Not S«t In XSTO)' 
'Tap* Statu* AU^t During Era** To EOT. But EOT Not S«t' 
'Rawind (POSITION) Co«wiand Not Acc*pt«d' 
'TSSR Init. F<;Ud After REREAD COMMAND' 
' TSSR Not Corr*ct Art*r ERASE CoMitand' 
' TS8A Not Correct Af t*r REREAD DATA CoiMMod' 

'READ REVERSE. Art*r ERASE From BOT. Failed To S«t RIB In XST5 
' TSSR Not Corr*ct Aft*r SPACE RECORDS Cownw^d' 
'TSSR Not Corr*ct Aft*r READ REVERSE Into BOT' 
BOT (XSTO) Still S«t Aft*r EraM From Tao«' ' s BOT Mark*r 
'ERASE Failed To Claar Tap* (Era**) Tap* Properly' 



'TSSR Not Corract Aft«r E^^ASE Command' 

•DPI Bit (XST5) Fail*d To Set' 

.ASCIZ 'Era** And Op*rat;on Incomplat*' 



VALUES 



052520 






T52REST 


• 






052520 








' SAVREG 




sSAVE THE REGISTERS 


052524 


012701 


051140' 




MOV 


♦T32PACKET.R1 


J START OF THE PACKET 


052530 


012721 


100004 




MOV 


0100004. (RD* 


lURITE SUBSYSTEM MEM. WITH ACK. 


052534 


012721 


05II50' 




MOV 


*T32DATA.(R1)» 


i ADDRESS OF CHARAISTICS DATA BLOCK 


052540 


005021 






CLR 


(Rl)» 


{EXTENDED ADDRESS 


052542 


012721 


000012 




MOV 


♦10. .(Rl)» 


jSIZE OF DATA BLOCK IN BYTES 


052546 


012721 


051162' 




MOV 


♦T528FR.(R1)» 


: ADDRESS OF MESSAGE BUFFER 


052552 


005021 






CLR 


(Rl)» 




052554 


012721 


000024 




MOV 


#20.. (RD* 


1 LENGTH OF MESSAGE BUFFER 


052560 


005021 






CLR 


(Rl)» 




052562 


012711 


000000 




MOV 


#0,(R1) 


1 SELECT DRIVE ZERO 


052566 


012702 


000030 




MOV 


•24. .R2 


|NU«ER OF LOCATIONS TO BE CLEARED 


052572 


012762 


177777 


051162' 64$: 


MOV 


#177777, T52BFR(R2) 


jALL ONES TO MESSAGE BUFFER 


052600 


005742 






TST 


-(R2) 


iNEXT LOCATION 


052602 


022702 


000000 




CMP 


#0.R2 


lAT END OF LOOP YET 



F12 



TEST 
TEST 



I HARDWARE TEST I 8 TEST MACRO MIUS 
4: ERASE AND OPERATION INCOr«>LETE 



3058 
5059 
5060 
5061 
5062 
5065 
5064 
3065 
5066 
5067 
5068 
3069 
5070 
5071 
3072 
5075 
5074 
3075 
5076 
5077 
5078 
5079 



5080 
5081 
5082 
5085 
5084 
5085 
5086 
3087 
5088 
5089 
3090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 
5098 
5099 
5100 
5101 
5102 
5105 
3104 
3105 
3106 
3107 
3108 
5109 
5110 
3111 
3112 



052606 
052610 



052612 
052612 
052616 
052622 
052626 
052650 
052652 
052636 
052640 
052642 
052642 
052646 
052652 
052654 
052656 
052660 
052662 
052664 
052664 
052664 



001571 
000207 



012701 051250 
012721 100006 
005021 
005021 

012721 000006 

005021 

000207 



012701 051270' 

005021 

005021 

005021 

005011 

000207 



104401 



T32RT2: 



T32RT3: 



FEB 84 


18:55 


BNE 


64« 


C3ITC 


Of* 

PC 


5AVHEG 




nov 


• 1 32PK<; , R 1 


aim 1 

nOV 


#100000tvRl 1* 


CLR 


(Rl)» 


CI R 


(RD* 


nuv 


#D. • (HI i» 




I Rl } ♦ 


Rib 


rC 


SAVncu 




nov 




CLR 


I Rl ) ♦ 






CLR 


(RD* 


CLR 


(Rl) 


RTS 


PC 


ENOTST 





SEQ 148 



|KE£P GOING UNTIL DONE 
•RETURN 



I SAVE THE REGISTERS 

I START OF THE PACKET 

lURITE SUBSYSTEM MEM. WITH ACK. 

I ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

{RETURN 

tSAVE REGISTERS 

I SET UP POINTER ADDRESS 

{COMMAND SPACE 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA TRANSFER BLOCK 

(RETURN 



L 10053: 



TRAP 



CIETST 



.SBTTL TEST 5: DATA PARITY TEST 



TEST 5 Data Parity Taat 

This tast varifiaa that th« data parity circuitry in both th« controllar and th« 
transport !a op«ratir>g proparly by forcing data racorda with Mrong parity to ba 
Mrittan onto tapa and chacking th« rasults obtai nad Mh«n th« data )S r«ad. Th« 
foliOMing taat 9tiuf^* ia pmrform^d: 

1. A Urita Charactariat ica coMmand ia iaauad and th« raaulting status is 
axaiiinad to dataraina tha statas of th« Extandad F«atur«s and Buffering 
Enabia awitchss on th« controllar Modula. If boffaring is disabled, no 
furthar actions nmrn^i ba takan in this stap and th« prograa procaads to 
th« naxt atap. If buffering is enabled, it is disabled via tne Buffer 
Control field in the extended characteristics data Mord supplied by a 
Urit« Characteristics co— a nd. (The module must be in Extended mode, 
so if it is not already, a Urite Subsystem Memory command is issued to 
Chang* the logical sense of tha Extended Features switch.) 



The Write Subsystem Memory command 
Parity control flip-flop. 



is used to set the Force wrong 



3. Tha tapa ia ra«»ourd. 



A Write Data command 
O's. It is war"" 



nd is issued to write a data record contain 'ng all 
ified that this command results °n Recoverable Err'or 



G12 



TEST I HAROUAAC TEST 1 8 TEST MACRO NlllS 
TEST S: DATA PARITr TEST 



SllS 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3125 
3124 
3125 
3126 
3127 
3120 
3129 
3x30 
3131 
3152 
5155 
5154 
5155 
5156 
5157 
5158 
5159 
5140 
5141 
5142 
5145 
5144 
3145 

3146 

3151 
3152 
3153 
3154 
3155 
3156 



01 rEB 84 18:55 



SEQ 149 



052666 
052666 
052666 
052674 
052700 
052704 
052712 



012737 006225' 002172' 

U12700 055505' 

004757 016402' 

012757 000005 002210' 

005057 054556' 



termination CTC*4) and tKat th* Uncorrectabl* Oats 
bit ;• aat. 



Th« pravioua atap ia 

(octal). 



rapaatad for 



Error (UNC) •rrcr 
data valua 2 tHrous^ 377 



6. 

7. 



8. 



Tha t 



<a raMOund. 



A Raad Next coMMand i« ■••u«d to r«m6 a racord Kith faulty parity. It 
is varifiad that thia cow — wd rasulta in Racovarabla Error tarminat ion 
(TC-4) and that both tha UncorractabU Data (UNC) and Raad Bua Parity 
(RBP) drror bits ara aat. It ia also varifiad that tha data actually 
raad !• cerract. 

A Raad Km^mr— c o awaod Mith OPP*l ia 'aauad to raad. in rmit^r—. tha 
•aaa racord with faulty parity mm raad in tha prawieua atap. It is 
varifiad that this coawa n d rasults in Racovarabla Error tanni nation 
(TC*4) and that both tha UncorractabU Data (UNC) and Raad Bus Parity 
(RBP) mrror bits ara sat. It is also varifiad that tha data actually 
r»m<i is corract. 



9. 
10. 

11. 



Tapa ia spaced forward ona racord. 

Tha pravious thraa staps ara axacutad for aach tast 

wr ittan. 



Tha control lar ia initialirad to 
previously sat «jp. 



racord originally 
claar tha special test cond't'ons 



BGNTST 

NOV 
NOV 
JSR 
NOV 
CLR 



•EPRT2.EPRTSW 

•TST35Ii).RO 

PC.TSTSFTUP 

♦5.L00PCNT 

T33CNT 



T5* • 

iSECONDARy ERROR MESSAGE 
(ASCII MESSA(«E TO IDENTIFY TEST 
tOO INITIAL TEST SETUP 
{PERFORM 5 ITERATIONS 
i CLEAR TAPE RECORD COUNTER 



3157 


052716 






T55L00P: 






3158 














3159 


052716 






BGNSUB 




]>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 




052716 










T5.1; 




052716 


104402 








TRAP CtBSUB 


3160 


052720 






RFLAGS 


RO 


t CHECK FOR THE ISR FLAG SET 




052720 


104421 








TRAP CIRFLA 


3161 


052722 


052700 


000100 


BIT 


«6IT6.R0 


(IF NOT SET UE UiLL SKIP THE TEST 


3162 


052726 


001002 




BNE 


51 


iBR. IF SET 


5163 


052750 


000137 


054342' 


JMP 


2201 


(SKIP OVER TESr UNTIL BOARD FIXED 


3164 


052754 






5*: 






3165 


052734 


005057 


002216' 


CLR 


INTRECV 


(INTERRUPT INDICATOR 


3166 


052740 


005057 


054556' 


CLR 


T33CNT 


i TIMER FOR URITE DATA SPACING 


3167 


052744 


005057 


054560* 


CLR 


T33CNU 


(TIMER FOR MRI'^F DATA RETRY SPACING 


3168 


052750 


004757 


055522- 


JSR 


PC.T35REST 


:SET COMMAND PACKET 


3169 


052754 


004737 


055614' 


JSR 


PC.T33RT2 


(SET UP OTHER COMMAND PACKET 



TEST I HARDWARE TEST I 8 TEST MACRO H1115 01 FEB M 18:55 SEQ l50 

TEST 5: DATA PARITY TEST 



SI 70 052760 


004757 


055656' 




JSR 


PC. T55RT5 


(SET UP OTHER COMMAND PACKET 




S171 0S2764 


012757 


176750 054562' 




MOV 


#65000 .T35DLY 


»SET UP DELAY COUNTER 




317P 052772 


004737 


015664' 


10$: 


JSR 


PC.SOFINIT 


lOO INITIALIZE ON CONTROLLER 




S17S 052776 


103426 






8CS 


20 1 


iBR IF INIT WAS OK 




B174 055000 








DELAY 


350 


1 DELAY ABOUT .25 SEC 




05SO00 


012727 


000250 








MOV 


♦250.(PC)» 


055004 


OOOOOO 










.WORD 


0 


055006 


015727 


002116' 








MOV 


L»OLr.(PC)» 


053012 


OOOOOO 










.WORD 


0 


055014 


005367 


177772 








DEC 


6(PC) 


055020 


001375 










BNE 


. -4 


055022 


005367 


177756 








DEC 


22(PC) 


055026 


001367 










BNF 


. -20 


5175 055050 


005357 


054562' 




DEC 


T350LY 


tBUMP COUNTER 




Si 76 055054 


001556 






BNE 


lot 


iBR. IF COUNTER NOT DONE 




3177 055056 


005257 


002214' 




INC 


FATFLG 


; ERROR COUNT 




5181 053042 


010001 






MOV 


RO.Rl 


{CONTENTS OF TSSR REGISTER 




3102 053O44 








ERRDF 


ERRNO . SriERR . SF IMSG 


1 FATAL Er90R TSSR UAS NOT OK 




053044 


104455 










TRAP 


C«ERDF 


053046 


000765 










.WORD 


501 


053050 


003642' 










.WORD 


SFIERR 


055052 


011724' 










.UORO 


SFIMSG 


5183 CSS054 


013737 


002174' 054420' 


20t: 


MOV 


UNITN, T55DSU 


1 SET UP UNIT NUMBER 




3104 
















3185 053062 


012704 


054400' 




MOV 


♦T33PACKET.R4 


{SUBROUTINE NEEDS PACKET ADDRESS 


5186 053066 


004737 


010552' 




JSR 


PC.URTCHR 


(ISSUE URITE CHARACTERISTICS 




3187 055072 


103407 






BCS 


23t 


iBR. IF COrtMND ISSUED OK 




3188 053074 


005237 


002214' 




INC 


FATFLG 


1 ERROR COUNT 




3192 053100 


010001 






MOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 




3193 055102 








ERRMRO 


ERRNO . MR TK3G . SF IMSG 


lURITE CHARACTERISTISC FAILED 




053102 


104456 










TRAP 


CtERHRD 


055104 


000766 










.UORO 


502 


053106 


005046' 










.UORD 


WRTMSG 


053110 


011724' 










.WORD 


SFIMSG 


3194 053112 






25t: 


CKLOOP 




iLOOP IF SELECTED 




053112 


104406 










TRAP 


CICLPl 


3195 055114 


004737 


010704' 




JSR 


PC. REWIND 


tCALL TAPE REWIND COMMAND 




3196 053120 


103411 






BCS 


50 1 


iBR. IF NO PROBLEM 




3197 053122 


016501 


000002 




MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 




3198 053126 


010004 






MOV 


R0.R4 


iGET PACKET ADDRESS 




3199 0SS130 


005237 


002214' 




INC 


FATFLG 


lERROR COUNT 




3203 053134 








ERRHRO 


ERRNO. T55RUN.PKTSSR 


(REWIND NOT ACCEPTED 




OSS 134 


104456 










TRAP 


C*ERHR0 


053136 


000767 










.UORO 


503 


053140 


055260' 










.UORO 


T35RUN 


053142 


011736' 










.UORO 


PKTSSR 


3204 053144 






50*: 


CKLOOP 




iLOOP IF SELECTED 




053144 


104406 










TRAP 


C»CLPl 


S205 OSS 146 


013701 


054430' 




MOV 


TS3BFR*6.R1 


iPICK UP XSTO 




3206 0S3152 


010102 






MOV 


R1.R2 


1 SET UP EXPECTED 




S207 053154 


0S2702 


000002 




BIS 


4BIT1.R2 


(SET BOT BIT IN EXPECTED 




3208 ossieo 


020102 






CMP 


RI.R2 


lOOES EXP - REC'D 




3209 0S3162 


001406 






BED 


40t 


iBR. IF EQUAL (OK) 




3210 0SS164 


005237 


002214' 




INC 


FATFLG 


1 ERROR COUNT 




3214 053170 








ERRHRO 


ERRNO. T33B0T .EXPREC 


J TAPE NOT AT BOT AFTER REWIND 




OSS 170 


104456 








TRAP 


CtERHRD 


053172 


000770 










.WORD 


504 



TEST 1 • HARDWARE TEST 1-6 TEST MACRO M1115 
TEST 5: DATA PARITY TEST 



112 

01 FEB 84 18:55 



SEQ 151 





053174 


055165' 












.WORD 


T3380T 




053176 


015564* 












.UORO 


EXPREC 


5215 


055200 








401: 


CKLOOP 




iLOOP IF SELECTED 






053200 


104406 












TRAP 


C$CLPl 


3216 




















5217 


053202 


005737 


002220' 




42*: 


TST 


EXTPEA 


iCHECK FOR EXTENDED FEATURES SU 


SWITCH 


52 IS 


055206 


001025 








eNE 


55$ 


iBR IF SWITCH IS ON 




5219 


055210 


112757 


000200 


054541' 




MOVB 


•200.T35BS1 


(WRITE MISCELLANEOUS CONT/REAO STATUS 


5220 


055216 


112757 


000010 


054540' 




HOVB 


•10.T53BS0 


iFUNC. SEL. BIT (TURN ON EXTFEA 


SWITCH) 


5221 


055224 


012704 


054510' 






MOV 


•T53PK2.R4 


i WRITE SUeSrS MEM PACKET 




5222 


055230 


010465 


000000 






MOV 


R4.TS0BCR5) 


1 ISSUE COMMAND 




5223 


053254 


004757 


016226' 






JSR 


PC.CHKTSSR 


(WAIT FOR SSR 




5224 


055240 


103407 








BCS 


50$ 


iBR. IF NO ERROR 




522!; 


055242 


010001 








MOV 


RO.Rl 


t ERROR. SAVE TSSR 




3226 


055244 


005257 


002214' 






INC 


FATFLG 


t ERROR COUNT 




5230 


055250 










ERRHRO 


ERRNO . T 33SSR . PK TSSR 


tTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 




055250 


104456 












TRAP 


C$ERHR0 




055252 


000771 












.WORD 


505 




055254 


055101' 












.WORD 


T33SSR 




055256 


011756' 












.WORD 


PKTSSR 


5251 


055260 








50»: 


CKLOOP 




J LOOP IF SELECTED 






053260 


104406 












TRAP 


C$CLP1 


3252 


053262 


005757 


002222' 




55$: 


TST 


BENBSW 


J CHECK FOR BUFFER ENABLED 




5253 


055266 


001426 








BEQ 


70$ 


iBR. IF BUFFERING NOT ENABLED 




3254 


055270 


015757 


002174' 


054420' 




MOV 


UNITN.T55DSU 


(SET UP UNIT NUMBER 




5255 


055276 


042757 


000020 


054420' 




BIC 


«BIT4.T350SU 


iBUFFER DISABLE 




5256 


053304 


052757 


000010 


054420- 




BIS 


«eiT5.T33DSU 


tBUFFER DISABLE SEND 01 TO BITS 


4 AND 5 


3257 


053512 


012704 


054400' 






MOV 


♦T33PACKET,R4 


(SUBROUTINE NEEDS PACKET ADDRESS 


5258 


055316 


004757 


010552' 






JSR 


PC.WRTCHR 


tissue WRITE CHARACTERISTICS 




5259 


053522 


105407 








BCS 


60$ 


iBR. IF COMMAND ISSUED OK 




5240 


055524 


005237 


002214' 






INC 


FATFLG 


(ERROR COUNT 




5244 


053350 


010001 








MOV 


RO.Rl 


(SAVE CONTENTS OF TSSR 




5245 


055532 










ERRHRO 


ERRNO . WRTMSG . SF IMSG 


(WRITE CHARACTERISTISC FAILED 






055352 


104456 












TRAP 


C$ERHRD 




055554 


000772 












.WORD 


506 




055536 


005046' 












.WORD 


WRTMSG 




053340 


011724' 












.WORD 


SFIMSG 


5246 


053542 








60$: 


CKLOOP 




(LOOP IF SELECTED 






055342 


104406 












TRAP 


C$CLP1 


5247 


055544 








70$: 










5248 


055544 


112737 


000100 


054541' 




MOVB 


•100.T33BS1 


(WRITE MISCELLANEOUS CONT/REAO 


STATUS 


5249 


055352 


112757 


000011 


054540' 




MOVB 


♦11.T33BSO 


jFUNC. SEL. BIT (SET WRONG PARITY) 


3250 


055560 


Oi.2704 


054510' 






MOV 


♦T53PK2.R4 


(WRITE SUBSYS MEM PACKET 




5251 


053364 


010465 


000000 






MOV 


R4.TSDB(R5} 


(ISSUE COMMAND 




5252 


053570 


004757 


016226' 






JSR 


PC.CHKTSSR 


(WAIT FOR SSR 




5253 


055574 


105407 








BCS 


80$ 


(BR. IF NO ERROR 




5254 


055376 


010001 








MOV 


RO.Rl 


(ERROR. SAVE TSSR 




5255 


055400 


005257 


002214' 






INC 


FATFLG 


(ERROR COUNT 




5259 


053404 










ERRHRO 


ERRNO. T35SSR.PK TSSR 


(TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 




053404 


104456 










TRAP 


C$ERMR0 




055406 


000773 












.WORD 


507 




055410 


055101' 












.WORD 


T55SSR 




055412 


011756' 












. WORD 


PKTSSR 


3260 


055414 








80$: 


CKLOOP 




(LOOP IF SELECTED 






055414 


104406 












TRAP 


C$CLP1 


3261 


053416 


012705 


000026 






MOV 


«22.. R3 (NUMBER 


OF RECORDS TO BE WRITTEN 




3262 


055422 


015757 


003116' 


054552' 




MOV 


FREE . T53U6 


(STARTING WHITE BUFFER ADDRESS 





J12 

TEST I HARDWARE TEST 1-8 TEST MACRO M1115 01 FEB 84 18:55 
TEST 5: DATA PARITY TEST 



3263 


053430 


005037 


054560' 






CLR 


T33CNU 


3264 


053434 


012737 


140005 


054530' 


110>: 


MOV 


•140005. T33PK3 


3265 


053442 


012704 


054530' 






MOV 


•T33PKS.R4 


3266 


053446 


012737 


000024 


054536' 




MOV 


•20. .T33SZ 


3267 


053454 


013777 


054560' 


127434 




MOV 


T33CNU.8rREE 


3268 


053462 


005237 


054560' 






INC 


T33CNU 


3269 


053466 


010465 


000000 






MOV 


R4.TSD6(R5) 


3270 


053472 


004737 


016140' 






JSR 


PC.UAITF 


3271 


053476 


016501 


000002 






MOV 


TSSRCR5).Rl 


3272 


053502 


012702 


100210 






MOV 


•SSR!SC!BIT3.R2 


3273 


053506 


020102 








CMP 


R1.R2 


3274 


053510 


001406 








BEQ 


120t 


3275 


053512 


005237 


002214' 






INC 


FATFLG 


3279 


053516 










ERRHRD 


ERRNO.TSSUPU.PKTSSR 




053516 


104456 














053520 


000774 














053522 


054642' 














053524 


011736' 












3280 


053526 








120 »: 


CKLOOP 






053526 


104406 












3281 


053530 


013701 


054432' 






MOV 


T33BFRtl0.Rl 


3282 


053534 


010102 








MOV 


R1.R2 


3283 


053536 


052702 


000002 






BIS 


•6IT1,R2 


3284 


053542 


020102 








CMP 


R1.R2 


3285 


053544 


001406 








BEQ 


150> 


3286 


053546 


005237 


002214' 






INC 


FATFLG 


3290 


053552 










ERRHRD 


ERRNO . T33UNC , EXPREC 




053552 


104456 














053554 


000775 














053556 


054722' 














053560 


015364' 












3291 


053562 








130$: 


CKLOOP 






053562 


104406 












3292 


053564 


005303 








DEC 


R3 


3293 


053566 


001322 








BNE 


110* 


3294 


053570 


004737 


010704' 






JSR 


PC. REWIND 


3295 


053574 


103411 








BCS 


1401 


3296 


053576 


016501 


000002 






MOV 


TSSR(R5).Rl 


3297 


053602 


010004 








MOV 


R0.R4 


3298 


053604 


005237 


002214' 






INC 


FATFLG 


3302 


053610 










ERRHRD 


ERRNO. T33RWN.PKTSSR 




053610 


104456 














053612 


000776 














053614 


055260' 














053616 


011736' 












3303 


053620 








140* : 


CKLOOP 






053620 


104406 












3304 


053622 


013701 


054430' 






MOV 


T33BFR»6,R1 


3305 


053626 


010102 








MOV 


R1.R2 


3306 


053630 


052702 


000002 






BIS 


•6IT1.R2 


3307 


053634 


020102 








CMP 


R1,R2 


3308 


053636 


001406 








BEQ 


150$ 


3309 


053640 


005237 


002214' 






INC 


FATFLG 


3313 


053644 










ERRHRD 


ERRNO. T33B0T. EXPREC 




053644 


104456 












053646 


000777 














053650 


055165' 













SEQ 152 



(MAKE SURE ITS CLEAR 

(WRITE DATA.ACK.f'VC-l COMMAND 

I SET UP R4 WITH hMCKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

J MEMORY FILLED WITH DATA IN RECORD 

I READY FOR NEXT RECORD 

1 ISSUE COMMAND 

J WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

» SET UP EXPECTED 

I ARE THEY EQUAL 

jBR. IF OK 

I ERROR COUNT 

tTSSR INCORRECT AFTER WRITE DATA 

TRAP CIERHRD 
.WORD 508 
.UCAO T33WPW 
.WORD PKTSSR 

J LOOP IF SELECTED 

TRAP CICLPl 

jPICK UP XSTl 

J SET UP EXPECTED 

iSET UNC BIT IN EXPECTED 

J DOES EXP ■ RECD 

:BR. IF EQUAL (OK) 

: ERROR COUNT 

:TAPE NOT AT BOT AFTER REWIND 

TRAP CtERHRO 
.WORD 509 
.WORD TS3UNC 
.WORD EXPREC 

:LOOP IF SELECTED 

TRAP C^CLPl 

:OEC RECORD COUNTER 

:BR. IF MORE RECORDS TO WRITE 

;CALL TAPE REWIND COTtlAND 

:BR. IF NO PROBLEM 

I GET TSSR CONTENTS 

(GET PACKET ADDRESS 

{ERROR COUNT 
s REWIND NOT ACCEPTED 

TRAP C*ERHRD 
.WORD 510 
.WORD TJ3RWN 
.WORD PKTSSR 

J LOOP IF SELECTED 

TRAP C»CLP1 

jPICK UP XSTO 

I SET UP EXPECTED 

J SET BOT BIT IN EXPECTED 

J DOES EXP - RECD 

jBR. IF EQUAL (OK) 

: ERROR COUNT 

iTAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WORD 511 
.WORD T33B0T 
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053652 


015364' 












5514 


053654 








4 CA * . 

150> : 


LKLOOH 






053654 


104406 












5315 


053656 


005037 


054560' 






f^l A 

CLR 


T33CNU 


5316 


053662 


012703 


/VAA/\^A 

000024 






nov 


•20. ,H3 


3317 


053666 


013737 


AAV 4 1 £ 1 

003116 


AC JiC T ^ 1 

054532 


4 CC 4 . 

1551 : 


nov 


CDCC TWOD 

r HtC 1 1 99Nb 


3318 


Af '^M 

0^3674 


012737 


4 A AAA4 

140001 


AC A C V A t 

054530 




nov 


A4 AAAA4 TWDI^V 
V 14000 1 , l93rK9 


3317 


053702 


012704 


ACd C VA 1 

054530 






nov 


atwdi/t da 
• I 99r'lv9 , H4 


3320 


053706 


012737 


AAAA1A 

000024 


ACAC VA < 

05453D 




MAU 

nov 


AOA TX^C7 
V^O. ( 1 999A 


3321 


053714 


A4 A^f C 

010465 


oooooo 






nov 


DA TCf^D^DiK^ 
N4 , 1 9UOl K3 ) 


3322 


AC V ?'>A 

053 720 


AA^ 7 V 7 

004737 


A4 A 4 Mm 

016140 






ICD 


DC UATTC 
PL ( Mnl 1 r 


3323 


053724 


A 4 £CA4 

016501 


AAAAAO 

000002 






nov 


TCCD^DC^ D1 

I bbRC R5 ) ,Rl 


3324 


ACV7 

053f 30 


Al ^7A^ 

012/02 


4 AA04 A 

100210 






nov 


ACCDICPIDTTV DO 
vbbN ; bL ! D 1 1 9 ( He 


3A<f3 


053 1 94 


AOA1 A^ 

02U1U2 








Lnr 


D1 D9 
HI fKe 


3320 


ACV7V£ 

v53 f 96 


AA1 A A& 








Dcn 

DCU 


1 AAA 

ioo> 


332 1 


/\^V7AA 

059f 40 


AAiCOT7 

00523 / 


AA004 A f 

OOeel4 






TUP 

INL 


CATCI r 

r H 1 r LO 




U99 /44 












CDOluA TTTunP OI^TCCO 
CnnNO • 1 99MOI. , rtS, 1 99M 




U59f 44 


104490 














053 »4o 


AA4 AAA 














U99 ( 9U 


ASSV97> 














v53 '52 


A4 1 7VA 1 
Oil f 90 














U99 (94 








1 AAt • 

loo* ; 


piyi AAD 






v53 /94 


104400 














U59 » 90 


A1 V7A1 
U19 fV/1 


ACAA VO 1 
0944 9c 






MAU 

nov 


TTTDCD^IA Dl 
1 99Dr H ^ lU • K 1 




U59 1 Oc 


A1 A1 AO 
01U1U2 








MAU 

nuv 


Dl DO 
HI , ntz 


9003 


A<V7£^ 

053704 


AS07AO 

052 f 02 


OOOOOe 






DTC 

Dlb 


adtti do 

Wl 1 1 (K^ 




U99 1 fSi 


AOAt AO 










Dl DO 


993 ' 


ARll77fJ 

053 f '2 


AA1 AAA 

0014UO 








OCA 


1 ""A* 
I ^ 0» 


9990 


AC V77A 
U99 1 f 4 


00523f 


AA001 A 1 

002214' 






TkiC 
INL 


r H 1 r Lu 


994c 


AC^ AAA 










CDOkjon 
CNNMKU 


CDDkAA TWiAIA CVDDCP 
CHKNO • 1 990N0 i CAKKcL 




ACA/V\A 

U94UUO 


1V4450 














AI^^AA^ 


AA 4 AA4 

OOlOOl 














AC^AA^ 


ASCA 4 O f 

055012 














U94UUO 


A4 CVAA 1 

0153O4 












9949 


AC^AI A 








4 7AA . 

l/Of : 


f*Ui AAD 






A^AAI A 


1 AAA A£. 
104400 












9944 


AC^AI O 

W94U12 


A4 T7A4 
013f01 


ACAA VOl 

054492 






MAU 

nov 


T3SBFR»10.R1 


9943 


U94UXO 


A1 A1 AO 
010102 








MAU 

nov 


Dl DO 
HI , H£ 


9940 


A*^AOA 
V94UeU 


AS07A0 

05<2 'Oe 


AAAAAA 

000400 






OTC 


ADTTA DO 

vol lOtKt; 


994 f 


Uj4Uc4 


AOA4 AO 

020102 








cnK 


Dl DO 


9940 


AC^A9JL 


AA4 AAA 








DC A 
DCU 


4 AAt 

ioo» 


994Tf 


A^AAVA 


AACOV7 

00523 f 


AA004 A 1 

002214 






INC 


CATCl C 

r HlrLu 


9999 


V94V94 












CDQMft TTVQBD CVDOCf* 




V94V94 


1 AAASA 
104430 












tViAnxti 

V94W90 


AA1 AAO 
OOlOOc 














1/94U4U 


ASASAA ' 
034304 














ASA AO 
W94W4C 


A1 SVitA* 
U13904 












9994 


ASA AAA 
U94U44 








1 AA * • 

loo* : 


Pl/I AAD 






ASA AAA 
U94U44 


1 AAAAA 
104400 












9999 


ASA AAA 


A1 77A1 
Ol f rOl 


1 9 7 AAA 

le«044 






MAU 

nov 


DFOCP Dl 
Mr nCC ■ nl 


3356 




01570P 


AS4S6Q' 






MOV 


T33CNU R2 


3357 


054056 


020102 








CMP 


R1.R2 


3358 


054060 


001406 








BEQ 


182) 


3359 


054062 


005237 


002214* 






INC 


FATFLG 


3363 


054066 










ERRHRD 


ERRNO , T 33DT A . EXPREC 




054066 


104456 












054070 


001003 













SEO 153 



I LOOP IF SELECTED 



.WORD EXPREC 



TRAP 
RECORD 



(CLEAR DATA VALUE IN 
t RECORD SIZE 

(STARTING URITE BUFFER ADDRESS 
(READ DATA.CVC-l.ACK COMMAND 
(SET UP R4 giTM PACKET ADDRESS 
(SET UP RECORD SIZE IN PACKET 
(ISSUE COMMAND 
(WAIT FOR SSR TO SET 
(GET TSSR CONTENTS 
(SET UP EXPECTED 
(ARE THEY EQUAL 
(BR. IF OK 

(ERROR COUNT 
(TSSR INCORRECT AFTER URITE DATA 

TRAP 
.WORD 
.WORD 
.WORD 



C»CLPl 



(LOOP IF SELECTED 

(PICK UP XSTl 
(SET UP EXPECTED 
(SET UNC BIT IN EXPECTED 
(DOES EXP • REC'D 
:BR. IF EQUAL (OK) 

(ERROR COUNT 
(UNC BIT NOT SET AFTER 



TRAP 



CIERHRD 
512 
T33WOC 
PKTSSR 

CICLPI 



(LOOP IF SELECTED 



READ CMO 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



(PICK UP XSTl 
(SET UP EXPECTED 
(SET RBP BIT IN EXPECTED 
(DOES EXP ■ REC'D 
(BR. IF EQUAL (OK) 

(ERROR COUNT 
(READ BUS PARITY ERROR BIT NOT 

TRAP 
.WORD 
.WORD 
.WORD 



OERHRD 
513 
T33UN0 
EXPREC 

C»CLPl 



(LOOP IF SELECTED 

(GET DATA READ 

(GET PATTERN 
(ARE THEY EQUAL 
(BR. IF OK 

(ERROR COUNT 
(DATA NOT CORRECT 



TRAP 



SET 
CIERHRD 
514 
T33R8P 
EXPREC 

C»CLPl 



TRAP 
.WORD 



CJERHRD 
515 
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054072 


055410' 














054074 


015564' 












3564 


054076 








102* : 


CKLOOP 






054076 


104406 












3365 


054100 


013737 


005116' 


054532' 




MOV 


r Rtt . T33UB 


3366 


054106 


012737 


140401 


AC A C V A * 

054530' 


4 AC A . 

195f : 


MAM 

MQV 


•140401 . T33PK3 


3367 


054114 


012704 


054530' 






MOV 


»T35PK3,n4 


3368 


054120 


012737 


000024 


AC M C * 

054536' 




MOV 


920 . , T33SZ 


3369 


054126 


010465 


000000 






MOV 


R4, TSDdvRS J 


3370 


054132 


004737 


016140' 






ICD 


PC t KMX I r 


3371 


054136 


016501 


AAAAAO 

000002 






nov 


I bSRvHa ; , HI 


3372 


054142 


012702 


100210 






MOV 


ffSC !SSH!DlT3tR2 


3373 


054146 


AOA« AO 

020102 








CMP 


A 1 AO 

Rl ,R2 


V V ~V A 

3374 


054150 


001406 








Ben 


4 AA A 
190» 


3375 


054152 


AACOV ^ 

005237 


002214' 






INC 


r A 1 r Lu 


3379 


054156 










cKKMHU 


CDOklA TT^LJAP Dl/TCCD 




AC M m C ^ 

054156 


< A A Jk C£ 

104456 














AC « 1 ^ A 

054160 


AAl AAik 

001004 














054162 


ACC V O"? 1 

055327' 














AC^ 4 £ A 

054164 


A« 1 1 

Oil 73o 












3300 


AC A \ £. ^ 

054166 








« AA A . 

1901 : 


f^t^t AAB 

CKLOOP 






054166 


1 AA ii A^ 

104406 












33ol 


054170 


013701 


054432 






nUV 


TVSOCD^IA D4 


3362 


054174 


010102 








nuv 


0% DO 

KX ,H2 


WAV 

3303 


AC^ 1 

054176 


AC O ^AO 

052702 


000002 






DTC 

Bis 


VDX 1 1 (Nc 


3364 


AC^ '^A'^ 

054202 


AOA4 AO 

020102 








CMP 


A 1 AO 

Rl ,R2 


V vac 

33o5 


054204 


001406 








DC A 


OAA * 

20Of 


3306 


054206 


AAC O V ^ 

005237 


002214' 






INC 


PA TCI r' 
r MTr Lu 


3390 


054212 










r RKMRD 


cRRNOt T33UNDf cXPRcC 




054212 


104456 














054214 


001005 














AC 

054216 


ACC A4 ^ « 

05501<. 














AC A "^^A 

054220 


A 4 C9^ M ■ 

01SS64' 












3391 


054222 








200t : 


^ftZI AAB 

CKLOOP 






AC M ^*k*^ 


4 AA M A^ 

104406 












3592 


AC Jl 

054224 


A4 V ^A m 

013701 


054432' 






nUV 


THOCA^IA At 

1 33or R*lO,Rl 


3393 


054230 


A4 A4 AO 

010102 








nov 


A 1 AO 

Rl .R2 


339* 


AC ^ ^ V ^ 

054232 


052702 


AAA A AA 

000400 






BIS 


AA T T A AO 




05423O 


AOA4 AO 

020102 








LnP 


A1 AO 

Rl tRe 


339D 


AC^ Oil A 

054240 


AA « A A^ 

001406 








OCA 

DCliI 


04 A« 

210* 


3397 


AC^ t A O 

054242 


005237 


AA00 4 M a 

002214 






INC 


r A Ir L u 


3401 


AC Jl 












CAAkiA TWDDA CVDACP 

cRRNO, T33HBP|tAPRtL 




AC^ OA 

054246 


« AA M C£ 

104456 














AC A OCA 


AA 4 AA£ 

OOlOOo 














AC A OCO 

054252 


AC M § 

054564' 














054254 


A 4 C Jl 1 

015364 ' 












3402 


054256 








210$ : 


Aiyi Ann 

CKLOOP 






05423O 


4 AjI Af 

104406 
















017 '01 


126632 






MAtf 

nuv 


C^ACC D4 

Sr Rcb ( KX 




O542o4 


013702 


AC Jl E£ A t 

0545o0 






MAM 

MOV 


TWPkM ( AO 


















3406 


054272 


001406 








BEQ 


2lSt 


5407 


054274 


005237 


002214' 






INC 


FATFLG 


3411 


054300 










ERRHRO 


ERRNO . T3S0T A . EXPREC 




054300 


104456 














054 302 


001007 














054304 


055410* 













SEQ 154 



.WORD T33DTA 
.WORD EXPREC 

I LOOP IF SELECTED 

TRAP C»CLP1 

{STARTING URITE BUFFER ADDRESS 

(READ REVERSE DATA RETRr.ACK COMMAND 

I SET UP R4 UITH PACKET ADDRESS 

i SET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

J WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

I SET UP EXPECTED 

(ARE THEY EQUAL 

jBR. IF OK 

I ERROR COUNT 

iTSSR INCORRECT AFTER WRITE DATA 

TRAP C»ERHRD 
.WORD 516 
.WORD T55UDC 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP CiCLPl 

iPICK UP XSTl 

! SET UP EXPECTED 

I SET UNC BIT IN EXPECTED 

J DOES EXP - RECD 

sBR. IF EQUAL (OK) 

I ERROR COUNT 

:TAPE NOT AT SOT AFTER REWIND 

TRAP CtERHRD 
.WORD 517 
.WORD T55UND 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP CI CLP 1 

sPICK \JP XSTO 

;SET UP EXPECTED 

sSET RBP BIT IN EXPECTED 

jOOES EXP - RECD 

iBR. IF EQUAL (OK) 

(ERROR COUNT 
:READ BUS PARITY ERROR BIT NOT SET 

TRAP 



;LOOP IF SELECTED 

(GET DATA READ 

;GET PATTERN 
{ARE THEY EQUAL 
jBR. IF OK 

: ERROR COUNT 
tOATA NOT CORRECT 



.WORD 
.WORD 
.WORD 

TRAP 



OERHRD 
518 

T55R8P 
EXPREC 

CJCLPl 



TRAP 

.WORD 

.WORD 



CSERHPD 
519 

T33DTA 
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f\K^ Xf\A 


015304 












\/3*31V 
03*3lU 


m44UO 




ci3* : 


Pl^l HAD 




34 Id 


0343lc 








nuv 


ox D3 
"3 , Kc 


54 1* 


034 3 14 




vUUWI 




HAU 

nuv 


»i , K3 


d41D 


054320 


UU# 'Of 


A1 AT<^ ' 




IQD 




3416 


054324 


010203 






MOV 


R2.R3 


3417 


054326 


005237 


054560- 




INC 


T33CNU 




U3433c 








npr 
ucu 


ox 

n3 




034334 










9?At 
CCO* 




034330 




033000 






133 * 


XAO% 

Mel 


AC^ 

03434c 






ccv* : 








03434c 
03434e 
034 34c 


1 tSAAtW 






crn^3UD 






A^^ 

034344 


Uc d ' c ' 


OOccl* OOOOl f 






r n 1 r Lu • vX3 • 




03433C 














034334 


AAA7X7 


m 7A74 ' 
Ol IMf^ 




IQQ 






t)KAXM\ 
034300 












3427 














3426 






















• 






XAXf\ 


A^^ T^A 
034 300 


iA>4 f O / 


010330 






or TCTi nno 




034304 










C3\/# 


3* 3c 


A^^ X^c 
034300 




03c ' lO 




IHD 


1 33L.UUr^ 


3433 


AC^ 

03*3 f C 
0343 ' c 
0343 f 4 


UUldU4 




c30» : 


C V TT 


TCT 
1 3 1 
















3*3 J 








i ♦ 






3*30 








1 LOCAL 


STORAGE 


PHD TMTQ TFQT 
r \JK inX3 IC3I 


3*3 f 








1 - 






3*3^ 


AC^ 

0343 lO 








.BLKB 


XO- « . - 1 3VcO • » 


3** X 


0344UU 






T33PACKET : 




3**c 


V34400 








.UORD 


1 ncionA 

XVA/W* 


J** 3 


U3**Oc 








.WORD 


1 33Un 1 n 


XAAA 
^*** 


034404 


AAAAAA 






.WORD 


A 


3**3 


U3**00 


AAAA1 O 






.UORD 


1 A 
X\^ . 


3**0 


03441U 






T33DATA 






J** » 


V344 lO 


wD44c«; 






' .WORD 


TXXOFO 
1 330~ " 


3**0 


UD**ic 


AAAAAA 






.UORD 


0 


3**TF 


03441* 


AAAA9A 






.WORD 


20. 


34 


w3**XO 


AAAAAA 
vwvw 






.WORD 


0 


^* 


w3**CW 


AAAAAA 
WWW 




T330SU: 


.WORD 


0 


3* 3c 


A^4A33 
W3**cc 






T33BFR: 


.BLKU 


25. 


3*33 














34 S4 








iuRITE 


SUBSYSTEM MEMORY COMMAND 


3*33 














3*3 # 


V34304 








.BLKB 


lO-<. -TSV267> 


3*3y 


w3*3Xv 






T33PK2; 






3460 


054510 


1 AAAA^ 






.WORD 


100006 


3461 


054512 


054540' 






.WORD 


T33BF2 


3462 


054514 


000000 






.WORD 


0 


3463 


054516 


000006 






.WORD 


6. 


3464 














3466 


054520 








.BLKB 


lO-<. -TSV2e7> 


3466 


054530 






T33PK3: 







SEQ 155 



.WORD EXPREC 

I LOOP IF SELECTED 

TRAP CICLPl 

iSAVE R3 FOR A MOMENT 
t SPACE FORWARD ONE RECORD 
jCALL ROUTINE 
■RESTORE R3 

sBJMP TO NEXT RECORD NUMBER 

J BUMP COUNTER 

iBR. IF DONE 

I BR. ir NOT DONE YET 

!<<<<<<<<<<<<< PNO SUBTEST >>>>>>>>>>>> 
L 10060: 

TRAP C9ESUB 
»IS ERROR COUNT AT 25 
J BR, IF LESS THAN 25 
,TRY TO DROP THE UNIT 



DO WE NEED TO ITERATE TEST 
BR. IF NO LOOP REQUIRED 
EXECUTE AGAIN 
ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L 10057 . 



i COMMAND PACKET FOR TEST 

sWRITE CHARACTERISTICS COMMAND. WITH . ACK 
i ADDRESS OF CHARACTERISTICS BLOCK 

; STARTING VALUE OF BLOCK SIZE 
•.CHARACTERISTICS DATA BLOCK 
: ADDRESS OF MESSAGE BUFFER 

! LENGTH OF MESSAGE BUFFER 

: SELECT DRIVE 0 
! MESSAGE BUFFER 



t WRITE SUB SYS MEM COMMAND. AND ACK 
} ADDRESS OF SELECT BLOCK DATA 

8 SIZE OF DATA PACKET 



Ni2 



TEST I 
TEST 5: 

3469 

5470 
5471 
5472 
5475 
5474 
5475 
5476 
5477 
5478 
5479 
5480 
5461 
5482 
5485 
3484 
3485 
3486 
3487 
5488 
5489 
5490 
5491 
5492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
5500 
3501 
3502 
5503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 
3512 
3515 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
5524 
3525 
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SEQ 156 



054550 
054552 
054552 
054554 
054536 



054540 
054540 
054541 
054542 
054544 



054546 
054550 
054552 
054554 



054556 
054560 
054562 



055522 
055522 
055526 
055532 



100005 

005116- 

000000 

000000 



010 
200 
000000 
000000 



100205 
100605 
102205 
177777 



000000 
000000 
000000 



T55RB: 
T53UB: 

T33SZ: 



.UORO 100005 



.WORD 
.UORO 
.UORO 
.EVEN 



FREE 

0 

0 



.BYTE 
• BYTE 
.UORO 
.UORO 



10 
200 
0 
0 



T55BF2 
T33BS0 
T35BS1 
T55S2: 
T35S3: 
i 

' .EVEN 

J TAPE NOTION PACKET COMMAND VALUES 

T53RN: .UORO 100205 

T55UDR: .UORO 100605 

T53C0N: .UORD 102205 

.UORD 177777 



(REREAD COMMAND. AND ACK 
J ADDRESS OF URITE BUFFER 
I SIZE OF BUFFER (EXTCNT) 



:BSELO AREA 
iBSELl AREA 
jSEL 2 AREA 
{DATA AREA 



jREREAD DATA (NEXT) 
: REREAD DATA RETRY 
: URITE CONTINOUS 
(END OF DATA 



T35CNT 
T53CNU 
T33DLY 



.UORD 0 
.UORD 0 
.UORO 0 



sTAPE TIMER COUNTER STORAGE AREA 
iTAPE TIMER COUNTER STORAGE AREA 
; DELAY COUNTER 



LOCAL TEXT MESSAGES FOR TEST 



054564 


122 


145 


141 


T55RBP 


.ASCIZ 


054642 


124 


123 


123 


T33UPU 


.ASCIZ 


054722 


125 


116 


105 


T33UNC 


.ASCIZ 


055012 


125 


116 


103 


T33UND 


.ASCIZ 


055101 


127 


122 


111 


T53SSR 


.ASCIZ 


055165 


124 


141 


160 


T55B0T 


.ASCIZ 


055260 


122 


145 


167 


T55RUN 


.ASCIZ 


055527 


124 


125 


123 


T33U0C 


.ASCIZ 


055410 


104 


141 


164 


T330TA 


• .ASCIZ 


055505 


104 


141 


164 


TST33ID: 












.EVEN 



'Read Bus Parity Bit Not Set CXSTl). Should Be' 

' TSSR Incorrect After Urong Parity Urite Command' 

'UNC Bit CXSTl) Not Set After Urong Parity URITE Command' 

■UNC Bit (XSTl) Not Set After Urong Parity READ Command' 

'URITE MISSCELLANEOUS CONT/REAO COMMAND Not Accepted' 

'Tape Not At BOT After REUINO Co«Mnand (BOT Not Set In XSTO)' 

'Rewind (POSITION) Command Not Accepted' 

'TSSR Not Correct After READ Urong Parity Command' 

'Data Compare Error, Data Read From Tape Not Equal To Uritten' 

.ASCIZ 'Data Parity' 



ROUTIhC TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
jURITE SUBSYSTEM MEMORY COMMAND 



T35REST : 



012701 
012721 



054400' 
100004 



SAVREG 

MOV 

MOV 



♦T33PACKET.R1 
«100004.(R1)» 



;SAVE THE REGISTERS 

: START OF THE PACKET 

(URITE SUBSYSTEM MEM. UITH ACK. 



BIS 



TEST 
TEST 



HARDWARE TEST 1 6 TEST MACRO milS 
DATA PARITY TEST 



01 FEB 84 16i5S 



SEQ 157 



5526 
S527 
S528 
5529 
5550 
5551 
5552 
5555 
5554 
5555 
5556 
5557 
5559 
5559 
5540 
5541 
5542 
5545 
5544 
5545 
5546 
5547 
5548 
5549 
5550 
5551 
5552 
5555 
5554 
5555 
5556 
5557 
5558 
5559 
5560 
5561 
5562 



5565 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 
5575 
5574 
5575 
5576 

5577 
5582 
5585 



05555^ 
05554 2 
05554 4 
055550 
055554 
055556 
055562 
055564 
055570 
055574 
055602 
055604 
055610 
055612 



055614 
055614 
055620 
055624 
055630 
055654 
055656 
055642 
055644 
055650 
055652 
055654 
055656 
055656 
055662 
055666 
055670 
055672 
055674 
055676 
055700 
055700 
055700 



055702 
055702 
055702 
055710 
055714 



012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001571 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



054410' 

000012 
054422' 

000024 

000000 
000050 

177777 0544 2> 
000000 



64t: 



flQV 


•T5S0ATA.(R1)> 


lADORESS or CHARAISTICS DATA BLOCK 


CLR 


(RD* 


lEXTENOEO ADDRESS 


nov 


•10..(R1)> 

•i?5arR.(Ri). 


iSIZE OF DATA BLOCK IN BYTES 


NOV 


1 ADDRESS OF MESSAGE BUFFER 


CLR 


(Rl). 




HOV 


•20. 


1 LENGTH OF MESSAGE BUFFER 


CLR 


(RD* 




MOV 


•0,(R1) 


1 SELECT DRIVE ZERO 


HOV 


•24. .R2 


iNUMBER OF LOCATIONS TO BE CLEARED 


nov 


♦177777. T55/JFR(R2) 


lALL ONES TO MESSAGE BUFFER 


TST 


(R2) 


iNEXT LXATION 


CMP 


•O.R? 


lAT END OF LOOP YET 


BNE 


641 


iKEEP GOING UNTIL DONE 


RTS 


PC 


{RETURN 



T55RT2: 



054510' 

100006 

054540' 

000006 

054540' 



054550' 



T55RT5! 



SAVREG 




iSAVE THE REGISTERS 


MOV 


•T53PK2.R1 


(START OF THE PACKET 


MOV 


•100006. (RD* 


lURITe SUBSYSTEM MEM. WITH ACK. 


MOV 


•T556F2.(R1)* 


{ADDRESS OF DATA BLOCK 


CLR 


(Rl). 


{EXTENDED ADDRESS 


MOV 


•6. .(Rl)> 


iSIZE OF DATA BLOCK IN BYTES 


CLR 


(RD* 




MOV 


•T55BF2.R1 


{POINT TO DATA SEL AREA 


CLR 


(Rl)» 




CLR 


CRD 




RTS 


PC 


(RETURN 


SAVREG 




(SAVE REGISTERS 


MOV 


•TS5PK5.R1 


(SET UP POINTER ADORES'^ 


CLR 


(Rl). 


(COMMAND SPACE 


CLR 


(Rl). 


(ADDRESS OF DATA BLOCK 


CLR 


(Rl). 


(EXTENDED ADDRESS 


CLR 


(RD 


(SIZE OF DATA TRANSFER BLOCK 


RTS 


PC 


(RETURN 


ENDTST 










L 10057: 






TRAP 


.SBTTL 


TEST 6: OPERATIONS 


AT EOT 



CIETST 



THIS TEST VERIFIES PROPER OPERATKM OF THE URITE DATA RETRY 
COMMAND (SPACE REVERSE. ERASE. URITE DATA) 



THE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 



012757 006166' 002172' 
012700 065057' 
004757 016402' 



BGNTST 

MOV 
MOV 
JSR 



•EPRTl.EPRTSU 
•TST54I0.R0 

PC.TSTSETUP 



r6:: 

(PRIMARY ERROR MESSAGE 
(ASCII MESSAGE TO IDENTIFY 
(00 INITIAL TEST SETUP 



TEST 



C13 



TEST MACRO Ml I 15 01 FEB 84 18:55 



SCO 158 



3384 055720 012737 000005 002210' 

3585 055726 005037 060542' 

3586 

5587 

5588 

5589 

5590 

3591 

3592 

3595 

3594 

3595 

5596 

3597 

3596 

3599 

3600 

3601 

3632 

3603 

3604 

3605 

3606 

3607 

3606 

3609 

3610 

3611 

3612 

3613 

3614 

3615 

3616 

3617 

3616 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3626 

5629 

5650 

3631 

3652 

5655 

5654 

3655 

5656 

3637 

3656 

5639 

5640 



MOV 
CLR 



•5.L00PCNT 
T34CNT 



iPERroRM S ITERATIONS 

I CLEAR TAPE RECORD COUNTER 



TEST 6. SURTEST 1 



THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLt BY 
THE VARIOUS TAPE MOTION COMMANDS. THE FOLLOWING TEST SEQUENCE 
IS PERFORMED: 

1. THE TAPE IS REWOUND. 

2. WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE 
STATUS ALERT TERMINATION IS SEEN WITH EOT-l. ERRORS 
OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA 
ERRORS CAUSE A FATAL ERROR REPORT. RECORDS WITH DATA 
ERRORS ARE RETRIED. SO THE TAPE ENDS UP WITH GOOD DATA. 

5. ANOTHER WRITE DATA COMMAND IS ISSUED, AND IT IS CHECKED 
1MAT TAPE STATUS ALERT TERMINATION OCCURS. WITm EOT-l. 

4. A WRITE TAPE MARK COMMAND IS ISSUEC. AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATE: OCCURS. WITH EOT-l. 

5. A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED. AND IT IS 
CHECKED THAT TAPE STATUS ALERT TERMINATION OCCURS. WITH 
EOT-l AND TMK-1. 

6. A SPACE RECORDS REVERSE COMMAND. WITH A RECORD COUNT OF 
1, IS ISSUED. AND IT IS CHECKED THAT TAPE STATUS ALERT 
TERMINATION OCCURS. WITH EOT-l AND TMK-1. 

7. A SPACE RECORDS REVERSE COMMAND. WITH A RECORD COUNT OF 
1. IS ISSUED. AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS. WITH EOT-l. 

6. A SPACE RECORDS FORWARD COMMAND. WITH A RECORD COUNT OF 
1. IS ISSUED. AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS. WITM EOT-l. 

9. A READ REVERSE COMMAND IS ISSUED. AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS. WITH EOT-l. 

10. A READ FORWARD COMMAND IS ISSUED. AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS. WITH EOT-l. 

11. A SPACE RECORDS REVERSE COMMAND. WITH A RECORD COWT OF 
5. IS ISSUED. AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS. WITH EOT-0. 



12. 



15. 



A SPACE RECORDS FORWARD COMMAND. WITH A RECORD COtNT Qf 
5, IS ISSUED. AND IT IS CHECKF.D THAT NORMAL TERMINATION 
OCCURS, WITH EOT-l. 

A SKIP FILE MARKS REVERSE COMMAND IS ISSUED. WHICH 
SHOULD SKIP ALL THE WA< TO BOT. ANO IT IS CHECKED THAT 



TEST I HAROUARE TEST I 8 TEST MACRO HI 115 
TEST 6: OPERATIONS AT EOT 



3641 
5642 
3645 
5644 
5645 
5646 
5647 
5646 

5649 055752 
5650 
5651 
5652 
5655 
5654 
5655 
5656 
5657 
5658 
565<> 
5660 
5661 
3662 
5665 
5664 
5665 
5666 
5667 
3668 
5669 
5670 
5671 
5672 
5675 



01 FEB 84 18:55 



Di3 



SEQ 159 



TAPE STATUS ALERT TERMINATION OCCURS. WITH EOT-0, 
BOT-1. AND RIB«1. 



T54L00P: 



TEST 6. SUBTEST I 

VERIFIES THAT WRITING OVER THE END -OF -TAPE (iOT) 
MARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE 
TAPE TRANSPORT DOES NOT RECOGNIZE THF EOT MAIWER. THE 
TAPE WILL RUN OFF THE END OF THE REEL. CAUSt;« THE 
PROGRAM SEQUENCE TO BE ABORTED UITH A FATAL ERROR 
INDICATION. IN THIS CASE, CORRECTIVE MAINTENANCE 
MUST BE PERFORMED USING THE TRANSPORT'S BUILT-IN 
MAINTENANCE ROUTINE AVAILIABLE VIA THE FRONT PANEL. 
IF THE CONTROLLER DOES NOT RECOGNIZE THE EOT. THE 
TRANSPORT WILL FAULT BUT THE TAPE WILL NOT RUN OFF 
THE END OF THE REEL BUT THE TRANSPORT MUST BE 
MANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A 
FATAL DIAGNOSTIC ERROR. 



5674 


05573? 






BGNSUB 




!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 




055752 










T6.1: 




5675 


055752 


104402 








TRAP 


CtBSUB 


055754 


004757 


065102' 


JSR 


PC.T54REST 


iSET COMMAND PACKET 




3676 


055740 


004757 


065256' 


JSR 


PC.T54RT5 


1 RE STORE PACKET 




5677 


055744 


004757 


065174' 


JSR 


PC.T34RT2 


I SET UP OTHER COMMAND PACKET 




5678 


055750 


012757 


176750 060544' 


MOV 


♦65000. .T540LY 


J SET UP COUNTER 




5679 


055756 


004757 


015664' 101: 


JSR 


PC.SOFINIT 


iOO INITIALIZE ON CONTROLLER 




5680 


055762 


10S4S5 




BCS 


20 ( 


iBR IF INIT UAS OK 




5681 


055764 






DELAY 


250 


;OELAY A UHILE 






055764 


012727 


000250 






MOV 


•250.(PC). 




055770 


000000 








.UORO 


0 




055772 


015727 


002116' 






MOV 


L»DL>.(PC1* 




055776 


000000 








.WORD 


0 




056000 


005567 


177772 






DEC 


6(PC) 




056004 


001575 








BNE 


. -4 




056006 


005567 


177756 






DEC 


22(PC'' 




056012 


001567 








BNE 


. 20 


3682 


056014 


016501 


000002 


1 IWV 


TSSR(R5),Rl 


iGET TSSR STATUS 




5685 


056020 


052701 


000200 


BIT 


•SSR.Rl 


J CHECK FOR SSR SET 




5684 


056024 


001012 




BNE 


20$ 


iBR. WHEN SSR IS SET 




5685 


056026 


001,557 


060544' 


DEC 


T54DLY 


tBUMP COUNTER OOUN 




5686 


056052 


001551 




BNE 


10( 


iBR. IF MORE DELAY REQUIRED 




5687 


056054 


005257 


002214' 


INC 


FATFLG 


1 ERROR COUNT 





TEST 
TEST 



1 HARDWARE TEST 1 8 TEST hACRO Mil IS 
6; OPERATIONS A7 fot 



3691 
3692 



3693 

3694 

3695 
3696 
3697 
3696 
3699 
3703 
3704 



3705 

3706 
3707 
3708 
3709 
3710 
3714 



3715 

3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3733 



3734 
3735 
3736 
3737 



056040 
056042 
056042 
056044 
056046 
056050 
056052 
056052 
056054 
056062 
056070 
056074 
056100 
056102 
056106 
056110 
056110 
056112 
056114 
056116 
056120 
056120 
056122 
056126 
056130 
056134 
056136 
056142 
056142 
056144 
056146 
056150 
056152 
056152 
056154 
056162 
056166 
056174 
056202 
056206 
056212 
05^16 
056222 
056226 
056230 
056232 
056234 
056236 
056242 
056242 
056244 
056246 
056250 
056252 
056256 
056260 
056262 



010001 

104455 

001131 

003642' 

011724- 

104406 

013737 002174* 060420' 
052737 000040 060420* 
012704 060400' 
004737 010552' 
103407 

005237 002214' 
010001 

104456 

001132 

005046' 

011724' 

104406 

004737 010704' 
103411 

016501 000002 
010004 

005237 002214' 

104456 

001133 

062207' 

011736' 



20 » 



sot 



104406 

012737 
012703 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001010 
005303 
001364 
005237 



35< 



140005 060530' 
176750 

003116* 060532' 
006654 060536* 
060530' 

000000 40t 

016140' 

000002 

000200 



002214' 



104455 
001134 
061766' 
011736' 

032701 000004 

001001 

000752 

013701 060430' 



50t 
60$ 



Ei3 



l-FEB 64 18:55 



SEQ 160 



MOV RO.Rl 

ERRDF ERRNO.SFIERR.SrinSG 



BIT 
BNE 
BR 
MOV 



iCONTENTS OF TSSR REGISTER 
iFATAL ERROR TSSR UAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 



CKLOOP 




iLOOP IF SELECTED 






TRAP 1 


MOV 


UNITN.T34DSU 


1 SET UP DRIVE NUMBER 


BIS 


«6IT5.TS4DSU 


iTURN ON HIGH SPEED TO SAVE TIME 


MOV 


•T34PACKET.R4 


{SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.URTCHR 


t ISSUE WRITE CHARACTERISTICS 


6CS 


sot 


iBR. IF COMMAND ISSUED OK 


INC 


FATFLG 


{ERROR COUNT 


MOV 


RO.Rl 


:SAVE CONTENTS OF TSSR 


ERRHRO 


ERRNO . URTMSG . SF IMSC 


I WRITE ChARACTERISTISC FAILED 



CtERDF 
601 
SFIERR 
SFIMSG 

CtCLPl 



TRAP 
.WORD 
.WORD 
.WORD 



CKLOOP 




J LOOP IF SELECTED 






TRAP 


JSR 


PC. REWIND 


{REWIND CALL 


BCS 


35 1 


iBR. IF TSSR IS OK (GOOD) 


MOV 


TSSR(R5).R1 


iGET TSSR 


MOV 


R0.R4 


tSET UP PACKET 


INC 


FATFLG 


1 ERROR COUNT 


ERRHRD 


ERRNO. T34RUN.PKTSSR 


iTSSR IS INCORRECT AFTER REWIND 



CtERHRD 
602 

WRTMSG 
SFIMSG 

CtCLPl 



TRAP 
.WORD 
. WORD 
.WORD 



CtERHRO 
603 
T34RIM 
PKTSSR 



CKLOOP 




(LOOP IF SELECTED 

TRAP Cti 


MOV 


•140005. TS4PK3 


lURITE DATA. ACK. CVC-1 


MOV 


«65000..RS 


iSET MAX NUreER OF WRITES 


MOV 


FREE,T34WB 


1 SET UP WRITE BUFFER ADDRESS 


MOV 


*3500..TS4SZ 


1 SET UP BUFFER SIZE (4K BYTES) 


MOV 


♦TS4PK3.R4 


iR4 - POINTER TO PACKET 


MOV 


R4.TSD6(R5) 


1 ISSUE COMMAND 


JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 


MOV 


TSSRCR5>.R1 


tGET TSSR CONTENTS 


MOV 


4>SSR.R2 


:SET UP EXPECTED 


CMP 


RI.R2 


(ARE THEY EQUAL 


BNE 


50 1 


jBR. IT MIGHT BE END OF TAPE 


DEC 


RS 


(DEC RECORD COUNTER 


BNE 


401 


iBR. IF MORE TO GO 


INC 


FATFLG 


{ERROR COUNT 


ERRDF 


ERRNO, TS4ET. PKTSSR 


{EOT NOT FOUND (USE SHORTER TAPE?) 



•BIT2.RI 
60 1 
40 1 

T346FR*6.R1 



TRAP 
.WORD 
.WORD 
.WORD 

(CHECK FOR TAPE STATUS ALERT 
I BR. IF SET 
(KEEP GOING 
(PICK UP XSTO 



CtEROF 
604 
T54ET 

PKTSSR 
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5738 


056266 


010102 








MOV 


Rl.R? 


5759 


056270 


052702 


000001 






BIS 


•eiTo.pif 


5740 


056274 


020102 








CMP 


Rl.*?? 


5741 


056276 


001402 








BEQ 


80* 


5742 


056300 


000157 


056206' 






JMP 


40 1 


5745 


C56S04 








80$; 


CKLOOP 






056504 


104406 












5744 


056306 


012737 


140005 


060530' 




MOV 


•140005 . T 34PK3 


5745 


056514 


015757 


005116' 


060532' 




MOV 


TREE. T34UB 


5746 


056322 


012757 


006654 


060536' 




MOV 


#3500. .T54SZ 


5747 


056S30 


012704 


060530' 






MoV 


#T54PK3,R4 


5748 


056334 


010465 


000000 






MOV 


R4,TSDB(R5) 


57<9 


056340 


004757 


016140' 






JSR 


PC.UAITF 


5750 


056344 


016501 


000002 






MOV 


TSSRCR5),R1 


5751 


056350 


012702 


100204 






MOV 


•SC!SSR!BIT2.R2 


5752 


056354 


020102 








CMP 


R1,R2 


5755 


056356 


001406 








BEQ 


90» 


5754 


056360 


005237 


002214' 






INC 


FATFLG 


5758 


056364 










ERRHRD 


ERRNO ,T34ET2,PKTSSR 




056364 


104456 














056366 


001135 














056370 


061257' 














056372 


011756' 












57j9 


056574 








90»: 


CKLOOP 






056374 


104406 












5760 


056376 


015701 


060430' 






MOV 


T34BFR*6.R1 


5761 


056402 


010102 








MOV 


R1.R2 


5762 


056404 


052702 


000001 






BIS 


•6IT0.R2 


3763 


056410 


020102 








CMP 


R1.R2 


5764 


056412 


001406 








BEQ 


loot 


5765 


056414 


005257 


002214 ' 






INC 


FATFLG 


5769 


056420 










ERRHRO 


ERRNO , T 34E TN . E XPREC 




056420 


104456 














056422 


001136 














056424 


061321' 














056426 


015364' 












5770 


056430 








1001: 


CKLOOP 






056430 


104406 












5771 


056432 


012737 


140011 


060530' 




MOV 


•14001 1,T34PK3 


5772 


056440 


012704 


060530' 






MOV 


•T34PK3,R4 


5775 


056444 


010465 


000000 






MOV 


R4.TS0e(R5) 


5774 


056450 


004757 


016140' 






JSR 


PC.UAITF 


5775 


056454 


016501 


000002 






MOV 


TSSR(R5),R1 


5776 


056460 


012702 


100204 






MOV 


•SC!SSR!BIT2.R2 


5777 


056464 


020102 








CMP 


R1.R2 


5778 


056466 


001406 








BEQ 


not 


5779 


056470 


005257 


002214 ' 






INC 


FATFLG 


5785 


056474 










ERRHRD 


ERRNO . T 34U TM , ^ K T SSR 




056474 


104456 














OOllS r 














056500 


061150' 














056502 


011736' 












5784 


056504 








110$: 


CKLOOP 






056504 


104406 












5785 


056506 


015701 


060450' 






MOV 


T54BFR*6.R1 


5786 


056512 


010102 








MOV 


RI.R2 


5787 


056514 


052702 


000001 






BIS 


•eiT0.R2 



SEQ 161 



I SET UP EXPECTED 

I SET THE EOT BIT ON IN EXPECTED 

lUAS THE BIT ON 

I BR. IF EOT WAS FOUND 

I KEEP LOOKING 

I LOOP IF SELECTED 

TRAP CICLPl 

lURITE DATA. ACK. CVC-1 

I SET UP URITE B'l^FER ADDRESS 

I SET UP BUFFER SIZE (4K BVTES) 

tR4 ■ POINTER TO PACKET 

t ISSUE COMMAND 

tWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

; SET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IF THEY ARE OK 
t ERROR COUNT 

iMRITE TAPE AT EOT FAILED TO SET TSA 

TRAP CtERHRO 
.WORD 605 
.WORD T34Er2 
.WORD PKTSSR 

I LOOP IF SEIECTED 

TRAP CfCLPl 

tPICK UP XSTO 

» SET UP EXPECTED 

(SET THE EOT BIT ON IN EXPECTED 

tUAS THE BIT ON 

tSR. IF EOT WAS FOUND 

I ERROR COUNT 
lEOT BIT (XSTC) NOT SET 

TRAP OERHRD 
.UORO 606 
.WORD TS4ETN 
WORD EXPREC 

jLOOP IF SELECTED 

TRAP CICLPI 

(WRITE TAPE MARK, ACK. CVC-1 COMMAND 

tR4 > POINTER TO PACKET 

t ISSUE COrtlANO 

(WAIT FOR SSR TO SET 

:GET TSSR CONTENTS 

I SET UP EXPECTED 

iARE THEY EQUAL 

iBR. IF STATUS IS GOOD (OK) 
(ERROR COUNT 

(EOT NOT FOUND (USE SHORTER TAPE?) 

TRAP CIERHRO 
,WORO 607 
.UORD T34UTH 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP CICLPI 

(PICK UP XSTO 

(SET UP EXPECTED 

(SET THE EOT BIT ON IN EXPECTED 
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57M 


05652O 


020102 








CHP 


R1.R2 


5789 


056522 


001406 








BEQ 


1201 


5790 


056524 


005257 


002214' 






INC 


FATFLC 


5794 


056550 










ERRHRO 


ERnNO. ^54ET0,EXPREC 




056550 


104456 














056552 


001140 














056554 


060652' 














056556 


015564' 












5795 


056540 








120 < : 


CKLOOP 






056540 


104406 












5796 


056542 


012757 


141410 


Af AK S A 1 

060550' 




NOV 


#141410. T34PK5 


5797 


056550 


012757 


000001 


060532' 




NOV 


#1 . T54WB 


5798 


056556 


012704 


060550' 






NOV 


#T34PK3,R4 


5799 


056562 


010465 


AAAAAA 

000000 






nOV 


AA TfAA/^nC\ 

K4 , T50BCH5 J 


5600 


056566 


AAA ^ V ^ 

004737 


016140' 






JSR 


AA LiATTC 

PC »UMI 1 r 


5801 


AC^ C T*^ 

056572 


A 4 ^KA 4 

016501 


00000? 






nov 


1 H5 ) ,HI 


5602 


056576 


A « f A ^ 

012702 


AAA^^^A 

000200 






nOV 


Af cn 
#b5H W2 


5605 


056602 


A^A« A^ 

020102 








CHP 


Hi ,H2 


5804 


AC^f A^ 

056604 


AA« 

001406 








DC A 


1309 


5603 


AC^£ A£ 

056606 


AAE^ V Y 

005257 


002214' 






INC 


r nir Lb 


V AAA 

5609 


056612 










cknhro 


ERRNU* T345Tn,PKT5bK 




056612 


104456 














ACf ^ * M 

056614 


AA « « A 4 

001141 














056616 


061550' 














056620 


011756' 












5810 


056622 








« vaa 

1501 : 


A&^l AAn 

CKLOOP 






056622 


104406 












5611 


056624 


015701 


Af AA VA< 

060450' 






NOV 


T34Br R»6«Rl 


5612 


056650 


010102 








NOV 


KI.R2 


3613 


056632 


052702 


AAAAA* 

000001 






BIS 


•BIT0,R2 


V A 4 A 


056656 


020102 








CNP 


R1,R2 


s A t e 

3015 


056640 


001406 








BEQ 


140$ 


30 Id 


056642 


005257 


002214' 






INC 


F ATr Lu 


3020 


AKf ^ 

056646 










E AnuBf\ 

ERhHRD 


f BBk*A ▼ V AC Tftl C WBBC^ 

cRRNO , T34c IN • cXPRcC 




056646 


104456 














AC^ ^ C A 

056650 


001142 














056652 


061321' 














056654 


015364' 












302I 


056656 








140$ : 


CKLOOP 






056656 


104406 












3022 


056660 


015701 


060450' 






NOV 


T34or R»6 »Rl 


30c3 


056664 


A 4 A 4 A^ 

010102 








NOV 


Rl »R2 


3024 


056666 


052702 


100000 






BIS 


4BIT15,H2 


3023 


056672 


020102 








CNP 


A 4 n 

Hi ,R2 


302o 


ACf £ 7^ 

056674 


AA « A Af 

001406 








BEQ 


150* 


OOC ( 


AC£^ 

0566 76 


005237 


002214' 






INC 


C A TC"I /" 

r Hlr LG 


3031 


Ag^ TAf* 

056 r02 










cKhHRO 


CDAkJ/l TVATMi/ CVDDC^ 




ACX 7A^ 

056702 


4 AA 

104456 














056 704 


001145 














V3v * VO 
















056710 


015564* 












5852 


056712 








1501: 


CKLOOP 






056712 


104406 












5855 


056714 


012757 


140410 


060550' 




NOV 


•140410. T54PK3 


5854 


056722 


012757 


000001 


060532' 




NOV 


41.T54U6 


3855 


056750 


012704 


060550' 






NOV 


4T54PK5.R4 


5836 


056734 


010465 


000000 






NOV 


R4.TSDB(R5) 



SEQ 162 



lUAS THE BIT ON 

iBR. ir EOT WAS FOUND 

I ERROR COUNT 
lEOT BIT (XSTO) NOT SET 

TRAP CI RhRO 
.UORD 60t» 
.UORO T54ET0 
.WORD EXPREC 

I LOOP IF SELECTED 

TRAP CICLPl 

iSKIP TAPE NARK REVERSE ACK.CVC-l COTTIAND 

jSET NUr«ER (1) OF TNS TO SKIP 

jR4 - POINTER TO PACKET 

t ISSUE CONHAND 

tUAIT F)DR SSR TO SET 

tGET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE TNEY EQUAL 

iBR. IF STATUS IS GOOD COK) 
t ERROR COUNT 

;SKIP TAPE NARK REV. DIDN'T SET TSA 

TRAP CIERMRD 
.UORO 609 
.WORD T54STN 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CICLPl 

»PICK UP XSTO 

I SET UP EXPECTED 

I SET TNE EOT BIT ON IN EXPECTED 

iWAS THE BIT ON 

tSR. IF EOT WAS FOUND 

{ERROR COUNT 
;EOT BIT (XSTO) NOT SET 

TRAP CtERHRO 
.WORD 610 
.UORD T54ETN 
.UORO EXPREC 

J LOOP IF SELECTED 

TRAP CICLPl 

J PICK UP XSTO 

J SET UP EXPECTED 

I SET THE TNK BIT ON IN EXPECTED 

iUAS THE BIT ON 

tBR. IF TNK UAS FOUND 

t ERROR COUNT 
jEOT BIT CXSTO) HOT SET 

TRAP CIERHRO 
.JORD 611 
.UORD T54TNK 
.UORO EXPREC 

(LOOP IF SELECTED 

TRAP CICLPl 
t SPACE RECORDS REVERSE. ACK. CVC«1 CND 
i SPACE ONE RECORD REVERSE 
:R4 ■ POINTER TO PACKET 
i ISSUE CONNAND 
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3837 


056740 


004737 


016140' 




JSR 


PC ,UAITF 


3838 


056744 


016501 


000002 




MOV 


TSSR(R5).R1 


3839 


05C/50 


012702 


100204 




tiov 


•SC!SSR!BIT2.R2 


3840 


056754 


020102 






CMP 


R1,R2 


3841 


056756 


001006 






BNE 


160$ 


3842 


056760 


005237 


002214' 




INC 


FATFLG 


3846 


056764 








errmro 


ERRNO. T34P0S,PKTSSR 




056764 


104456 












056766 


001144 












056770 


060564' 












056772 


011736' 










3847 


056774 






160*: 


CK,.OOP 






056774 


104406 










3848 


056776 


013701 


060430' 




MOV 


T34BFR»6.R1 


3849 


057002 


010102 






MOV 


R1.R2 


3850 


057004 


052702 


000001 




BIS 


•BIT0.R2 


3851 


057010 


020102 






CMP 


R1.R2 


3852 


057012 


001406 






BEQ 


163$ 


3853 


057014 


005237 


002214' 




INC 


FATFLG 


3857 


057020 








ERRHRO 


ERRNO. T34ETN.EXPREC 




057020 


104456 












057022 


001145 












057024 


061321' 












057026 


01SS64' 










3858 


057030 






163$: 


CKLOOP 






057030 


104406 










3859 


057032 


013701 


060430' 




MOV 


T34BFR»6.R1 


3860 


057036 


010102 






MOV 


R1.R2 


3861 


057040 


042702 


100000 




BIC 


•BIT15.R2 


3862 


057044 


020102 






CMP 


R1.R2 


3863 


057046 


001406 






BEQ 


165$ 


3864 


057050 


005237 


002214' 




INC 


FATFLG 


3868 


057054 








ERRHRO 


ERRNO, T34TMK .EXPREC 




057054 


104456 










057056 


001146 












057060 


061633' 












057062 


015364' 










3869 


057064 






165$: 


CKLOOP 






057064 


1C4406 










3870 


057066 


012737 


140410 


060530' 


MOV 


♦140410, T34PK3 


3871 


057074 


012737 


000001 


060532' 


nov 


•1.T34UB 


3872 


057102 


012704 


060530' 




MOV 


•T34PK3,R4 


3873 


057106 


010465 


000000 




MOV 


R4.TSDB(R5) 


3874 


057112 


004737 


016140' 




JSR 


PC.UAITF 


3875 


057116 


016501 


000002 




MOV 


TSSRCR5),R1 


3876 


057122 


012702 


000200 




MOV 


•SSR.R2 


3877 


057126 


020102 






CMP 


R1.R2 


3878 


057130 


001406 






BEQ 


167$ 


3879 


057132 


005237 


002214' 




INC 


FATFLG 


3683 


057136 








ERRHRO 


ERRNO . T34P0S . PK TSSR 




057156 


104456 










057140 


001147 












057142 


060564' 












057144 


011736' 










3884 


057146 






167$: 


CKLOOP 






057146 


104406 










3885 


057150 


013701 


060430' 




MOV 


T346FR«6.R1 



SEQ 163 



jUAlT FOR SSR TO SET 

iGET TSSR CONTENTS 

J SET LP EXPECTED 

I ARE THET EQUAL 

iBR. IT MIGHT BE END OF TAPE 
(ERROR COUNT 

lEOT NOT FOUND (USE SHORTER TAPE?) 

TRAP C*ERHRO 
.UORO 612 
.WORD T34P0S 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP C»CLP1 

iPICK UP XSTO 

tSET UP EXPECTED 

iSET THE EOT BIT ON IN EXPECTED 

iWAS THE BIT ON 

iBR. IF EOT UAS FOUND 

i ERROR COUNT 
lEOT BIT (XSTO) NOT SET 

TRAP C$ERHRD 
.WORD 613 
.WORD T34ETN 
.UORD EXPREC 

a LOOP IF SELECTED 

TRAP C$CLP1 

(PICK UP XSTO 
;SET UP EXPECTED 

iCLEAR THE TMK BIT ON IN EXPECTED 

(WAS THE BIT ON 

:BR. IF TMK UAS FOUND 

s ERROR COlMT 
sECT BIT (XSTO) NOT SET 

TRAP C$ERHRD 
.UORD 614 
.UORD T34TMK 
.UORD EXPREC 

I LOOP IF SELECTED 

TRAP C$CLP1 
i SPACE RECORDS REVERSE. ACK. CVC-1 CMD 
s SPACE ONE RECORD REVERSE 
iR4 - POINTER TO PACKET 
•.ISSUE COMMAND 
{UAIT FOR SSR TO SET 
tGET TSSR CONTENTS 
J SET UP EXPECTED 
lARE THEY EQUAL 
J BR. IT MIGHT BE END OF TAPE 

t ERROR COUNT 
I EOT NOT FOUND (USE SHORTER TAPE?) 



I LOOP IF SELECTED 
I PICK UP XSTO 



TRAP 
.UORD 
.UORD 
.UORD 

TRAP 



C iERHRO 

615 

T34P0S 

PKTSSR 

C$CLPl 
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3886 057154 


010102 








MOV 


fll.R2 


3887 057156 


042702 


000001 






BIC 


«6IT0.R2 


3888 057162 


020102 








CMP 


R1,R2 


388'/ 057164 


001400 








BEQ 


170$ 


3690 057166 








170t: 


CKLOOP 




057166 


104406 












3891 057170 


012737 


140010 


060530' 




hOV 


•140010, T34PK3 


3892 057176 


012737 


000002 


060532' 




MOV 


«2.T34UB 


3893 057204 


012704 


060530' 






MOV 


♦T34PK3,R4 


3894 057210 


010465 


000000 






MOV 


R4.TS0BCR5) 


3895 057214 


004737 


016140' 






JSR 


PC.WAITF 


3896 057220 


016501 


000002 






MOV 


TSSR(R5),R1 


3897 057224 


012702 


000200 






MOV 


♦SSR.R2 


3898 057230 


020102 








CMP 


R1,R2 


3899 057232 


001406 








BEQ 


190» 


3900 057234 


005237 


002214' 






INC 


FATFLG 


3904 057240 










ERRHRD 


ERRNO , T 34P0S . PK T SSR 


057240 


104456 












057242 


001150 












057244 


060S64' 












057246 


011736' 












3905 057250 








190$: 


CKl OOP 




057250 


104406 












3906 057252 


013701 


060430' 






MOV 


T34BFR»6.R1 


3907 057256 


010102 








MOV 


R1.R2 


3908 057260 


052702 


000001 






BIS 


«eiT0.R2 


3909 057264 


020102 








CMP 


Rl,R2 


3910 057266 


001406 








BEQ 


200$ 


3911 057270 


005237 


002214* 






INC 


FATFLG 


3915 057274 










ERRHRD 


ERRNO , T 34E T S . EXPREC 


057274 


104456 










057276 


001151 












057300 


061400' 












057302 


015364' 












3916 057304 








200t: 


CKLOOP 




057304 


104406 












3917 057306 


012737 


140401 


060530' 




MOV 


•140401. T34PK 3 


3918 057314 


013737 


003116' 


060532' 




MOV 


FREE.T34RB 


3919 057322 


012704 


060530' 






MOV 


•T34PK3.R4 


3920 057326 


010465 


000000 






MOV 


R4,TS0B(R5) 


3921 057332 


004737 


016140' 






JSR 


PC.WAITF 


3922 057336 


016501 


000002 






MOV 


TSSRCR5).R1 


3923 057342 


012702 


000200 






MOV 


•SSR.R2 


3924 057346 


020102 








CMP 


RI.R2 


3925 057350 


001406 








BEQ 


205$ 


3926 057352 


005237 


002214' 






INC 


FATFLG 


3930 057356 










ERRHRD 


ERRNO . T34RRE , PK ISSN 


057356 


104456 










057360 


001152 












057362 


060/36' 














Oil roo 












3931 057366 








205 1: 


CKLOOP 




057366 


104406 












3932 057370 


012737 


140401 


060530' 




MOV 


•140401. T34PK3 


3933 057376 


013737 


003116' 


060532' 




MOV 


FREE,T34RB 


3934 057404 


012704 


060530' 






MOV 


•T34PK3.R4 


3935 057410 


010465 


000000 






MOV 


R4.TS0B(R5) 



SEQ 164 



»SET UP EXPECTED 

jCLEAR TMF EOT BIT ON IN EXPECTED 

I WAS THE BIT OFF 

I BR. IF EOT WAS FOUND 

I LOOP IF SELECTED 

TRAP CICLPl 

(SPACE RECORDS FORWARD. ACK. CVC-1 

(SPACE TWO RECORDS 

(R4 - POINTER TO PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IT MIGHT BE END OF TAPE 
(ERROR COUNT 

(EOT NOT FOtWD (USE SHORTER TAPE?) 

TRAP CiERHRO 
.WORD 616 
.WORD T34P0S 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 

(PICK UP XSTO 

(SET UP EXPECTED 

I SET THE EOT BIT ON IN EXPECTED 

(WAS THE BIT ON 

(BR. IF EOT WAS FOUND 

t ERROR COUNT 
lEOT BIT CXSTO) NOT SET 

TRAP C$ERHRD 
.WORD 617 
.WORD T34ETS 
.WORD EXPREC 

tLOOP IF SELECTED 

VRAP C$CL01 

{READ REVERSE. ACK. CVC'l 

(SET UP WRITE BUFFER AO(tRESS 

(R4 - POINTER TO PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEv EQUAL 

(BR. ONLY SSR IS SET 
(ERROR COUNT 

(EOT NOT FOUND (USE SHORTER TAPE?) 

TRAP CtERHRD 
.WOTD 618 
.WORD T34RRE 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C$CLP1 
(READ REVERSE. ACK. CVC-1 
(SET UP WRITE BUFFER ADDRESS 
{R4 - POINTER TO PACKET 
(ISSUE COMMAND 
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3936 
3937 
5938 
3939 
3940 
3941 
3945 



3946 

3947 
3948 
3949 

3950 
3951 
5952 
3953 
3954 
3955 
3956 
3957 
3961 



3962 

3963 
3964 
3965 

3967 
3968 
5969 
3970 
3971 
3972 
3973 
3977 



3978 

3979 
3980 
3981 
3982 
5985 
5964 
3988 



057414 
057420 
057424 
057430 
057432 
057434 
057440 
057440 
057442 
057444 
057446 
057450 
057450 
057452 
057460 
057466 
057474 
057500 
057504 
057510 
057514 
057520 
057522 
057524 
057530 
057550 
057552 
057554 
057556 
057540 
057540 
057542 
057550 
057556 
057564 
057570 
057574 
057600 
057604 
057610 
057612 
057614 
057620 
057620 
057622 
057624 
057626 
057650 
057650 
057652 
057656 
057640 
057644 
057646 
057650 
057654 
057654 



004757 016140' 

016501 000002 

012702 000200 
020102 
001406 

005237 002214' 

104456 
001155 
060736' 
011736' 

104406 

012^57 140001 060550' 

015737 003116' 060552' 

012757 006654 060556' 

012704 060550' 

010465 000000 

004757 016140' 

016501 000002 

012702 000200 
020102 
001406 

005237 002214' 

104456 
001154 
060736' 
011736' 

104406 

012737 140001 060530* 

015757 005116' 060552' 

012757 006654 060556' 

012704 060550' 

010465 000000 

004757 016140' 

016501 000002 

012702 000200 
020102 
001406 

005237 002214' 

104456 

001155 

060736' 

011736' 

104406 

013701 060430' 
010102 

052702 000001 

020102 

001406 

005237 002214' 
104456 



210*; 



250 1: 



2351: 



JSR 
MOV 
MCV 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 

ERRHRD 



PC.UAITF 

TSSR(R5),R1 

*SSR.R2 

R1.R2 

210* 

FATFLG 

ERRNO . T 54RRE . PK TSSR 



•140001. T34PK 5 

FREE.T54RB 

♦5500.,T54SZ 

«T54PK5.R4 

R4.TS0BCR5) 

PC.UAITF 

TSSR(R5).R1 

«SSR.R2 

R1.R2 

250* 

FATFLG 

ERRNO, T54RRE.PK TSSR 



«140001.T54PK5 

FREE.T54RB 

♦5500. ,T54SZ 

«T54PK5.R4 

R4.TS0B(R5) 

PC.UAITF 

TSSR(R5).R1 

4SSR.R2 

R1.R2 

255* 

FATFLG 

ERRNO, T34RRE .PKTSSR 



SEQ 165 



(WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

, SET UP EXPECTED 

I ARE THEY EQUAL 

tBR, IT MIGHT BE END OF TAPE 
'ERROR COUNT 

lEOT NOT'fOUNO (USE SHORTER TAPE?) 

TRAP CtERHRD 
.UORD 619 
.UORD T34RRE 
.UORD PKTSSR 

;LOOP IF SELECTED 

TRAP C»CLP1 

I READ DATA. ACK. CVC-1 

I SET UP WRITE BUFFER ADDRESS 

iSET UP BUFFER SIZE (4K BYTES) 

iR4 - POINTER TO PACKET 

(ISSUE COMMAND 

lUAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

J SET UP EXPECTED 

lARE THEY EQUAL 

iBR. IT MIGHT BE END OF TAPE 
I ERROR COUNT 

(EOT NOT FOUND (USE SHORTER TAPE?) 

TRAP CtERHRO 
.WORD 620 
.WORD T54PRE 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CICLPl 

iREAO DATA. ACK. CVC-1 

iSET UP WRITE BUFFER ADDRESS 

iSET UP BUFFER SIZE (4K BYTES) 

jR4 - POINTER TO PACKET 

I ISSUE COMMAND 

sUAIT FOR SSR TO SET 

J GET TSSR CONTENTS 

J SET UP EXPECTED 

iARE THEY EQUAL 

;BR. IT MIGHT BE END OF TAPE 

i ERROR COUNT 
iEOT NOT FOUND (USE SHORTER TAPF?) 



TRAP 
.WORD 
.WORD 
.WORD 



CKLOOP 




J LOOP IF SELECTED 






TRAP 


MOV 


T34BFR»6.R1 


jPICK UP XSTO 


MOV 


R1.R2 


J SET UP EXPECTED 


BIS 


*6IT0,R2 


J SET THE EOT BIT ON IN EXPECTED 


CMP 


R1.R2 


J WAS THE BIT ON 


BEQ 


240* 


iBR. IF EOT WAS FOUND 


INC 


FATFLG 


i ERROR COUNT 


ERRHRD 


ERRNO, T54ETZ,EXPREC 


{EOT BIT (XSTO) NOT SET 



CtERHRO 
621 
T34RRE 
PKTSSR 

C»CLPl 



TRAP 



C*ERHPJ 
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001156 












.WORD 


622 




057660 


A^ 4 A 7^ t 

061472' 












.WORD 


T34ETZ 




037662 


A« C t 

015964' 












.WORD 


EXPREC 




057664 








OA A 4 ■ 

e40* : 


r^l^l HAD 




jLOOP IF SELECTED 






03 '66* 


104#06 












TRAP 


C»CLPl 


T AAA 


057666 


A4 '^7 V 7 

012757 


4 AAA 4 A 

140410 


AA.ACSAf 

06O3oO 




MOW 

nuv 


»X^O#XO« 1 j#rl\3 


1 SPACE RECORDS REVERSE. ACK. CVC-1 CMO. 


5991 


AC 7 A 

05 '6 » 4 


A4 07V7 

012'.57 


AAAAAC 

000003 


A4LA^VO« 

0f>U30e 




nuv 


A^ JXADtt 


■ ia> MRPD or DprnonQ xn qdhcc 

1 n^^riDCn U" nCUUnus i U jKHLC 






AC 7 7A^ 

05 7 702 


A 1 ^7AA 

012 fO* 


A^ACVAi 

0603S0 






nuv 


atyadkt da 


tQA a POTMTPQ Tn PACirP T 






057 ?06 


At AA^C 

010465 


AAAAAA 

ooooou 






MAW 

nuv 


DA TCAD^D^^ 






yfm 


AC 7 7 1 O 

057712 


AAA 7V7 


Al £ 1 AA' 

0x6x*0 






ICD 


or UATTr 
« WAX ' • 


t UATT rOQ <;<;p TO QPT 






05 f f 16 


A1 ^C^l 

0163vl 


/VSAAAO 






nuv 


1 OSnV n3 ^ t nx 








03 f f ci: 


A1 07AO 


AAAOAA 






nuv 


ACCO DO 


i<;PT (JP pvPFPTPn 






AC77^^ 

03 f «tf6 


A'^AI AO 








LnK 


KX 


{ARE THEY EQUAL 






AC77 Vi\ 
W3 f f 


AA1 AAA 










c3\/ V 


J BR. IT MIGHT BE END OF TAPE 








AAC3V7 








Inv. 


raTPi r. 

r H 1 r LU 


, ERROR COUNT 




«»WU5 


V3 f 1 3© 












PQOKin TTAPnC PirTCQB 


iPOSITXON COMMAND DION' T WORK 






v3f '•96 


1 AAACA 
1U^*30 












TRAP 


OERHRD 




AC7 7AA 

03f 


/VM 1 ^7 












.WORD 


623 




/^^77A9 
W3 1 f #c 


A^LAQiLA ' 
U0U30^ 












.WORD 


T34P0S 




AC77AA 

V3« 


A1 1 7 * 
UXX ' OO 












.WORD 


PKTSSR 




03f »*0 








e3U* : 






sLOCP IF SELECTED 






A^77A& 

03 1 














TRAP 


C»CLP1 




03 f f 3U 


A1 X7A1 


AfcAAXA' 






nuv 


1 3*« D* n V O 9 n X 


;PICK UP XSTO 






AC7 7C J 

03 f f 3# 


A| A| AO 








nuv 


Dl DO 
nX » "C 


;SET UP EXPECTED 






U3f r30 


AA07A0 


AAAAA1 






QTr 


AOTTO DO 


i CLEAR Tl« EOT BIT ON IN EXPECTED 




03 1 f Oc 


AOAI AO 










Dl DO 
KX t "C 


(WAS THE BIT ON 






U3 r ro^ 


AA1 








DC.U 




:BR, IF EOT WAS FOUND 






Ae7 7iii: 
U3 f f OO 


AA^0^7 


AA001 A • 








r A 1 r to 


t ERROR COUNT 






AC7770 
U3 1 1 Id. 










cnnnifu 


PDDkm TTAFTr pypopr 


:EOT BIT (XSTO) NOT CLEAR 






A^7770 
03i f »c 














TRAP 


CtERHRO 




0<777A 
U3 1 1 Im 


AA1 1 4LA 












.WORD 


624 




rt^777<i 
U3 r r rO 


f\£i% A07 ' 












.WORD 


T34ETC 




A^AAAA 


A« g «^ J 1 












.UORO 


EXPREC 












04«A< • 


CM-UUK 




sLOOP IF SELECTED 






n<uw)3 


1 AAAA4^ 
XW**VO 












TRAP 


C»CLP1 




A^AAAA 


A1 07T7 
Uxc r o r 


1 AAA1 A 


AiLA^XA* 




nuv 




I SPACE RECORDS FORWARD. ACK. CVC-1 CMO. 


dm 7 




A1 07X7 
UXc r r 


^^V%^A^ 


UOU39e 




nuv 




8 NUMBER OF RECORDS TO SPACE 




Am A 




A1 07AA 

UXc r 


A4LACXA' 






MAW 

nuv 


ATTADKT DA 


jR4 - POINTER TO PACKET 








m AAil^ 
UXU*Oj 


A#W>AA 






MOW 

nuv 




J ISSUE COMMAND 








iV\A 7 V7 


Al £4 AAi 

0x6x#0 






ICD 


PC.WAITF 


sWAIT FOR SSR TO SET 






A^AA» J 


A1 ilCAl 
UX03UX 


AAAAAO 






HAW 

nuv 




;GET TSSR CONTENTS 






m^AAAA 


A1 07A0 
UXc rUc 


AAAOAA 






MAW 

nuv 


ACCD DO 


J SET UP EXPECTED 






AAAAAA 


AOA1 AO 










01 DO 
KX 


sARE THF.Y EQUAL 




A09A 




AA1 








DCU 


07A< 


J BR. IT MIGHT BE END OF TAPE 






n&AA^A 
UOVU3V 


AACOV7 


AA004 A 1 










; ERROR COUNT 






VOVU3^ 










CHKnHU 


PDDUn TTAPT DKTCQD 


jTSSR NOT CORRECT 






n<«nA*>A 


1 AAA^A 
Xw^^30 










TRAP 


CIERHRD 




\TOW30 


AA1 1^1 












.WORD 


625 






Am 7t^> 
UDX 'DO 












.WORD 


T34ET 






A1 1 7V4^< 
UXX ' '30 












WORD 


PKTSSR 


4030 


060064 








2701 • 


CKLOOP 




iLOOP IF SELECTED 






060064 


104406 












TRAP 


CJCLPl 


4031 


060066 


013701 


060430' 






MOV 


T34BFR«6.R1 


;PICK UP XSTO 




4032 


060072 


010102 








MOV 


R1.R2 


J SET UP EXPECTED 




4033 


060074 


052702 


000001 






BIS 


#BIT0.R2 


.•SET THE EOT BIT ON IN EXPECTED 




4034 


060100 


020102 








CMP 


R1,R2 


sWAS THE BIT ON 




4035 


060102 


001400 








BEQ 


280 > 


{BR. IF EOT WAS FOUND 





Li3 



TEST 1 HARDWARE TEST 1-0 TEST MACRO M1113 01 -FEB 84 18:55 



I C J > o 


: rPERATIONS AT 






060104 








060104 


104406 






060106 


012737 


1 A t A 1 A 




060114 


012737 






060122 


C12704 






060126 


010465 






060132 


012737 




And? 


060140 


004737 






060144 


016501 






060150 


032701 






060154 


001017 






060156 








060156 


012727 






060162 


000000 






060164 


013727 


An9i 1 A> 




060170 


000000 






060172 


005367 


1 777 7S 




060176 


001375 






060200 


005367 


1777SA 




060204 


001367 




AAA 7 


060206 


005337 




AAA A 


060212 


001352 




AOAQ 


060214 


012702 


000700 




060220 


020102 






060222 


001007 






060224 


005303 




^ V J J 


060226 


005237 




^ V J f 


060232 








060232 


104456 






060234 


001162 






060236 


061766' 






060240 


011736' 






060242 


032701 




^ V J 7 


060246 


013701 






060252 


010102 




AMI 


060254 


042702 






060260 


020102 






060262 


001406 




4064 


060264 


005237 


00391 A* 




060270 








060270 


104456 






060272 


001163 






060274 


061027' 






060276 


015364' 






060300 








060300 


104406 




4070 


060302 


013701 


04«0AX0' 


4071 


060306 


010102 




4079 


060310 


0*2702 


000009 


4073 


060*. 


02010.? 




4074 


060316 


001406 




4075 


ro0320 


005237 


00991 A' 


40 70 


060324 








060324 


104456 






060326 


001164 






060330 


061104' 






060332 


015364' 





280« : CKLOCP 



MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
BIT 
BNE 
DELAY 



285 >: 



286* : 



290* : 



DEC 
BNE 
MOV 
CMP 
BNE 
DEC 
INC 

ERRHRD 



BIT 
MOV 
MOV 
BIC 
CMP 
BEQ 
INC 

EPRHRO 



300$ : CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



♦141410. T34PK3 

♦3,T34RB 

♦T34PK3.R4 

R4,TSDB(R5) 

♦65000. .T340LY 

PC.UAITF 

TSSR(R5).R1 

♦SSR.Rl 

286$ 

250 



T34DLY 

285 1 

♦SSR.R2 

R1.R2 

290$ 

R3 

FATFLG 

ERRNO .T34ET.PKTSSR 



♦6IT2.R1 

T34BFR>6.R1 

R1.R2 

♦BIT0.R2 

R1.R2 

300$ 

FATFLG 

ERRNO, T34ETC.EXPREC 



T34BFR*6.R1 

R1.R2 

♦BIT1.R2 

R1.R2 

3201 

FATFLG 

ERRNO, T34B0T .EXPREC 



SEQ 167 



I LOOP IF SELECTED 

TRAP C»CLP1 
I SKIP FILE MARKS REVERSE .ACK.CVC-1 COMMAND 
I NUMBER OF FILE MARKS 
|R4 - POINTER TO PACKET 
I ISSUE COMMAND 
, SET UP DELAY COUNTER 
jUAIT FOR SSR TO SET 
J GET TSSR CONTENTS 
J CHECK FOR SSR bET 
iBR. WHEN SSR IS SET 
J WAIT ABOUT .25 SECONDS 

MOV »250,(PC)» 
.WORD 0 

MOV L»DLY,(PC)« 

.WORD 0 

DEC 6fPC) 

BNE . 4 

DEC 22( PC ) 

BNE . 20 

jBUMP COUNTER 

J BR. IF MORE TO COUNT 

: SET UP EXPECTED 

»ARE THEY EQUAL 

sBR. IT MIGHT BE END OF TAPE 

;DEC RECORD COUNTER 
(ERROR COUNT 

;EOT NOT Ff' lND (USE SHORTER TAPE?) 

TRAP CtERHRD 
.WORD 626 
.WORD T34ET 
.WORD PKTSSR 

; CHECK FOR TAPE STATUS ALERT 

jPICK UP XSTO 

;SET UP EXPECTED 

{CLEAR THE EOT BIT IN EXPECTED 

;WAS THE BIT ON 

;BR. IF EOT WAS FOUND 
; ERROR COUNT 

jEOT BIT (XSTO) NOT CLEAR 

TRAP CIERHRD 
.WORD 627 
.WORD T34ETC 
. WORD EXPREC 

sLOOP IF SELECTED 

fRAP C J CLP I 

jPICK UP XSTO 

;SET UP EXPECTED 

tSET THE BOT BIT ON IN EXPECTED 

I WAS THE BIT ON 

iBR. IF BOT WAS FOUND 
(ERROR COUNT 

J EOT BIT (XSTO) NOT CLEAR 

TRAP C$ERHRO 
. WORD 626 
.WORD T3460T 
.WORD EXPREC 



Mi3 



TEST I - MARDUMRE TEST 1-8 
TEST 6: OPERATIONS At COT 



TEST MACRO M1113 01-FEB 84 18:55 



4080 

4061 
4082 



4085 
4084 
4085 
4086 
4087 
4088 
4089 
4090 



060354 
060554 
060556 
060356 
060536 
060556 
060540 
060346 
060350 
060354 
060554 
060360 
060562 
060366 
060366 
060370 



104406 



104403 
023727 
105402 
004757 

004757 
105002 
000137 

10445? 
002672 



320S: 
6001: 



002214' 
017074 • 
016550' 
0557S2' 



000017 



999$! 



163$: 



CKLOOP 
ENOSUB 



CMP 
BLO 
JSR 

JSR 
BCC 
JMP 
EXIT 



FATFLG.015. 
999$ 

PC.CKOROP 

PC.TSTLOOP 
163$ 
T34L0OP 
TST 



4091 










4092 










4093 




! LOCAL 


STORAGE 


FOR THT5 T5ST 


4094 










4096 060372 






.BLKB 


lO-<.-t!>V2i;?> 


4096 060400 




T34PACKET: 




4099 060400 


100004 




.WORD 


100004 


4100 060402 


060410' 




.WORD 


T340ATA 


4101 060404 


000000 




.UQRO 


0 


4102 060406 


000010 




.WORD 


6. 


4103 060410 




T34DATA: 




4104 060410 


060422' 




.WORD 


T34BFR 


4105 060412 


000000 




.WORD 


0 


4106 060414 


000012 




.WORD 


10. 


4107 060416 


000000 




.UQRO 


0 


4106 060420 


000000 


T340SU: 


.WORD 


0 


4109 060422 




T34BFR: 


.BLKW 


25. 


4110 




1 WRITE 






4111 




SUBSYSTEM MEMORY COMMA 


4112 




■ 






4114 060504 






.BLKB 


10-<.-TSV2£7> 


4116 060510 




T34PK2: 






4117 060510 


100006 




.WORD 


100006 


4118 060512 


060546- 




.WORD 


T34BF2 


4119 060514 


000000 




.WORD 


0 


4120 060516 


000006 




.WORD 


6. 


4121 










4123 060520 






.BLKB 


lO-<. -TSV2£7> 


4125 060530 




T34PK3: 






4126 060530 


100005 




.WORD 


lOOOOS 


4127 060532 




T34RB: 






4128 060532 


000000 


T34UB: 


.WORD 


0 


4129 060534 


000000 




.WORD 


0 


4130 060536 


000000 


T34SZ: 


.WORD 


0 


4131 






.EVEN 




4132 




f34RSZ: 






4133 060540 


000000 


.WORD 


0 


4134 060542 


000000 


T34CNT : 


.UORO 


0 


4135 060544 


000000 


T340LY: 


.WORD 


0 


4136 




■ 






4137 




■ 







SEQ 166 



J LOOP IF SELECTED 

TRAP C$CLP1 

!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10062: 

TRAP C$ESUB 
5 IS ERROR COUNT AT 25 
J BR. IF LESS THAN 25 
J TRY TO DROP THE UNIT 

J DO WE NFEO TO ITERATE TEST 
I BR. IF NO LOOP REQUIRED 
(EXECUTE AGAIN 
iALL DONE THIS TEST 

TRAP C$EXIT 
.UORD L10061-. 



sCOMMAf'O PACKET FOR TEST 

J WRITE JHARACTERISTICS COMMAND, WITH ACK 

t ADDRESS OF CHARACTERISTICS BLOCK 

: STARTING VALUE OF BLOCK SIZE 
: CHARACTERISTICS DATA BLOCK 
: ADDRESS OF MESSAGE BUFFER 

: LENGTH OF MESSAGE BUFFER 

: SELECT DRIVE 0 
J MESSAGE BUFFET* 



: WRITE SUB SYS MEM ^OMMANO. AND ACK 
: ADDRESS OF SELECT .jLOCK DATA 

;SIZe OF DATA PACKET 

i WRITE COMMAND. AND ACK 

: ADDRESS OF WRITE/READ BUFFER 

J SIZE OF BUFFER (EXTENT) 

{LARGEST TAPE RECORD IN BYTES 
iTAPE RECORD COUNTER 
; DELAY COUNTER 



N13 



TESl 
TEST 



6: 



HARDWARE TEST 1 8 TEST MACRO M1113 
OPERATIONS AT EOT 



01 -FEB -84 18:55 



SEQ 169 



4138 060546 

4139 060546 

4140 060547 

4141 060550 

4142 060SS2 
4143 

4144 
4145 
4146 
4147 

4148 060554 

4149 060556 

4150 060560 

4151 060562 
4152 

4153 
4154 
4155 
4156 
4157 
4158 

4159 060564 

4160 060652 

4161 060736 

4162 061027 

4163 061104 

4164 061150 

4165 061237 

4166 061321 

4167 061400 

4168 061472 

4169 061550 

4170 061633 

4171 061733 

4172 061766 

4173 062055 

4174 062133 

4175 062207 

4176 062256 

4177 062331 

4178 062577 

4179 062452 

4180 062541 

4181 062643 

4182 062716 

4183 062770 

4184 063057 
4185 

4186 
4187 
4188 
4189 
4190 
4191 
4192 

4193 063102 

4194 063102 



010 
200 
000000 
000000 



100005 
100405 
102005 
177777 



124 
127 
122 
125 
122 
127 
127 
127 
123 
122 
124 
120 
127 
105 
127 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
117 



T34BF2 
T34BS0 
T34BS1 
T34S2: 
T34S3: 



.BYTE 
.BYTE 
.WORD 
.UORD 



10 
200 
0 
0 



.EVEN 

sTAPE MOTION PACKET COMMAND VALUES 

T34U0: .WORD 100005 

T34U0R: .WORD 100405 

T34C0N: .UORD 102005 

.WORD 177777 



LOCAL TEXT MESSAGES FOR TEST 



iBSELO AREA 
iBSELl AREA 
iSEL 2 AREA 
iDATA AREA 



; WRITE DATA (NEXT) 
sWRITE DATA RETRY 
; WRITE CONTINOUS 
:END OF DATA 



123 123 T34P0S 

122 111 T34E70 

105 101 T34RRE 

156 141 T34ETC 

105 127 T34B0T 

122 111 T34UTM 

122 111 T34ET2 

122 111 T34ETN 
120 101 T34ETS 
105 101 T34ETZ 

123 123 T34STM 
117 123 T34TMK 
122 111 T34SSR 
117 124 T34ET: 

122 111 T34E0T 

123 123 T34TM: 
145 167 T34RUN 
101 115 T34RNC 
123 123 T34AM3 
162 151 T340FL 
123 123 T34W0O 
123 123 T34WDC 
126 103 T34VCK 
123 102 T34BA: 
122 111 T34USS: 
160 145 TST34I0 



,ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



TSSR Incorrect After Position (SPACE RECORDS) Co«wnan<»' 
WRITE TAPE MARK At EOT Failed To Set EOT Bit (XSTO)' 
READ Command At EOT D!dn"t Give Normal Termination (TSSR)' 
Unable To Clear EOT Indication. (XSTO) Bit 0' 
REWIND Failed To Set BOT (XSTO) Bit' 

'WRITE TAPE MARK At EOT Failed To Set Tape Status Alert' 

'WRITE DATA At EOT Failed To Set Tape Status Alert' 
WRITE DATA At EOT Failed To Set EOT Bit (XSTO)' 

'SPACE RECORDS FORWARD At EOT Failed To Set EOT Bit (XSTO)' 

'READ DATA At EOT Failed To Set EOT Bit (XSTO)' 
TSSR Incorrect After SKIP TAPE MARK REVERSE At EOT' 
POSITION Command At EOT Onto Tape Mark Failed To Set TMK (XSTO)' 

'WRITE Command Not Accepted' 

'EOT Not Found In 65000 3.5K Writes. (Use Shorter Tape)' 

'WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

'TSSR Not Correct After WRITE Command Reject' 

'Rewind (POSITION) Command Not Accepted' 

•RAM Error. Correct Data Pattern Not In Ram' 

'TSSR Init. Failed After WRITE Command' 

'Drive 7 Select Failed To Set "OFL" In TSSR' 

'TSSR Not Correct After WRITE DATA Command. SUB Bit Set' 

WRITE DATA Command. Check For Tape Offline' 
VCK In Message Buffer' 
WRITE DATA Command' 
Command Not Accepted (RAM Read)' 
EOT' 



TSSR Not Correct After 
CVC Set, Didn' ' t Reset 
TSBA Not Correct After 
WRITE SUBSYSTEM MEMORY 
.ASCIZ 'Operations At 



ROUTINE TO RESTORE COMMAND PACKET TO START UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



TS4REST: 



SAVREG 



iSAVE THE REGISTERS 



Bi4 



TES 
TES 



1 HARDWARE TEST 1 S TEST HACRO HUIS 
6: OPERATIONS AT EOT 



01 FEB 84 IB; 55 



SEQ 170 



195 06S106 

196 06S112 

197 06S116 
196 063122 

199 063124 

200 063130 

201 063134 

202 063136 

203 063142 

204 063144 

205 063150 

206 063154 

207 063162 
206 063164 

209 063170 

210 063172 
211 

212 

213 063174 

214 063174 

215 063200 

216 063204 

217 063210 
216 063214 

219 063216 

220 063222 

221 063226 

222 063230 

223 063232 

224 063234 

225 063236 

226 063236 

227 063242 
226 063246 

229 063252 

230 063254 

231 063256 

232 063260 

233 063262 
063262 
063262 

234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
24 7 
246 
249 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
020227 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
012701 
005021 
005021 
005011 
000207 



012701 
012721 
005021 
005021 
005011 
000207 



104401 



060400- 

100004 

060410' 

000012 
060422' 

000024 

000000 
000030 

177777 060422' 
000000 



64t! 



MOV •T54PACKET.R1 

HOV •100004. (Rl)« 

MOV ♦T340ATA,CRl)» 

CLR (Rli. 

MOV ♦10.. (RD* 

nov *T34erR.(Rl)* 

CLR (RD* 

nov •20.. (RD* 

CLR (Rl)» 

MOV •O.(Rl) 

MOV •24.. R2 

MOV •177777, T34BrR(R2) 

TST (R2) 

CMP R2.^0 

BNE 641 

RTS PC 



I START or THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK 

(ADDRESS OF CMARAISTICS DATA BLOCK 

lEXTENOCO ADDRESS 

I SIZE OF DATA BLOCK IN BtTES 

I ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 

I SELECT DRIVE ZERO 

I NUMBER OF LOCATIONS TO BE CLEARED 

I ALL ONES TO MESSAGE BUFFER 

iBUMP DOWN TO NEXT LOCATION 

iR2 AT ZERO rET 

iKEEP GOING UNTIL DONE 

I RE TURN 



T34RT2: 



060510- 

100006 

060546- 

000006 
060546' 



TS4RT3: 



060530- 
100005 



SAVREG 




iSAVE THE REGISTERS 


MOV 


•T34PK2.R1 


■START OF THE PACKET 


MOV 


•100006. (RD* 


1 WRITE SUBSYSTEM MEM. UlTM ACK 


MOV 


•T34BF2.(R1)> 


{ADDRESS OF DATA BLOCK 


CLR 


(Rl)» 


lEXTENDED ADDRESS 


MOV 


•6..(R1)» 


iSIZE OF DATA BLOCK IN BYTES 


MOV 


•T34BF2.R1 


1 POINT TO DATA &EL AREA 


CLR 


(Rl). 




CLR 


(Rl)» 




CLR 


(Rl) 




RTS 


PC 


1 RE TURN 


SAVREG 




iSAVE THE REGISTERS 


MOV 


•T34PK3.R1 


1 START OF THE PACKET 


MOV 


•100005. (Rl)> 


iWRITE TAPE. WITH ACK 


aR 


CR1)» 


(ADDRESS OF DATA BLOCK 


CLR 


(Rl)» 


(EXTENDED ADDRESS 


CLR 


CRD 


(SIZE OF DATA BLOCK 


RTS 


PC 


(RETURN 


ENDTST 










L10061: 






TRAP 


.S8TTL 


TEST 7: EXTENDED MODE 


FEATURES 



C»ETST 



THIS TEST VERIFIES THE OPERATION OF COmANDS ONLY AVAILABLE WHEN 
TME CONTROLLER IS IN THE EXTENDED FEATURES MODE. THESE COmANDS 
ARE: 



REWIND WITH IMMEDIATE INTERRUPT 

IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE. 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 



THE TEST CONSISTS OF THE FXLOWING 7 SUBTESTS 



IT 



Ci4 



MACRO nil 15 01 FEB M 18:55 



SEQ 171 



4^50 
4?51 

4255 
4254 

4255 
4260 
4261 
4262 
4265 
4264 
4265 
4266 
4267 
4266 
4269 
4270 
4271 
4272 
4275 
4274 
4275 
4276 
4277 
4278 
4279 



065264 
065264 
065264 

065272 
065276 
065502 
065510 



012757 006166' 002172' 

012700 075015' 

004757 016402' 

012757 000005 002210' 

005057 067416' 



BGNTST 

MOV 

JSR 
HOV 
CLR 



•EPRTl.EPRTSU 

#TST55I0.RO 

PC.TSTSETUP 

#5,L00PCNT 

T55CNT 



T7:: 

iPRINARt ERROR rCSSAGE 

lASCII rCSSAGE TO lOCNTIFT TEST 

lOO INITIAL TEST SETUP 

iPERTORn 5 ITERATIONS 

iCLEAR TAPE RECORD COUNTER 



TEST 7, SUBTEST 1 



VERIFIES THAT A REWIND WITH IMMEDIATE INTERRUPT COMMAND. ISSUED 
WITH THE INTERRUPT ENABLE (IE) BIT CLEAR (0). CAUSES ALMCST 
IMMEDIATE TERMINATION BUT NO INTERRUPT. STATUS IN THE MESSAGE 
BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 



4280 
















4281 


065514 






T55L00P: 








4282 


065514 






BCNSUB 




!>>>>>>>>»>>> BEGIN SUBTEST >>>>>>>>>>>> 




065514 










T7.1: 






065514 


104402 








TRAP 


CtBSUB 


4285 


065516 


004757 


075044' 


JSR 


PC.T55REST 


iSET COMMAND PACKET 




4284 


065522 


005057 


002216' 


CLR 


INTRECV 


, CLEAR INTERRUPT RECEIVED FLAG 




4285 


065526 


004757 


075156' 


JSR 


PC.T55RT2 


1 SET UP OTHER COMMAND PAC ' 




4286 


065552 


004757 


075200' 


JSR 


PC.T55RT5 


1 SET UP COMMAND PAC cT 




4287 


065556 


012757 


176750 067422' 


MOV 


•65000. ,T55DLT 


J SET UP ELAy COUNTER 




4288 


065544 


005057 


067416' 


CLR 


T55CNT 


(CLEAR C ONTER 




4289 


065550 


004757 


015664* 


10«: JSR 


PC.SOFINIT 


J DO INITIALIZE ON CONTROLLER 




4290 


065554 


105426 




BCS 


20 » 


iBR IF INIT WAS OK 




4291 


065556 






DELAY 


250 


»DELAy ABOUT .25 SEC 






065556 


012727 


000250 






MOV 


•250. (PC)* 




065562 


000000 








.WORD 


0 




065564 


015727 


002116' 






MOV 


L»OLi .(PCI. 




C65570 


000000 








.WORD 


0 




065572 


005567 


177772 






DEC 


-6(PC) 




065576 


001575 








BNE 


. 4 




065400 


005567 


177756 






DEC 


22(PC') 




065404 


001567 








BNE 


. 20 


4292 


065406 


005557 


067422' 


DEC 


T550LT 


iBUMP COUNTER 




4295 


065412 


001556 




BNE 


10* 


iBR. IF COUNTER NOT DONE 




4294 


065414 


005257 


002214' 


INC 


FATFLG 


1 ERROR COUNT 




4298 


065420 


010001 




MOV 


RO.Rl 


{CONTENTS OF TSSR REGISTER 




4299 


065422 






ERROF 


ERRNO . SF lERR . SF IMSG 


iFATAl error TSSR WAS NOT OK 






065422 


104455 






TRAP 


CIERD*" 




065424 


001275 








.WORD 


701 




06542^ 


005642' 








.WORD 


SF ILRR 



Di4 



TEST I HAROUAftt TEST I 0 TEST MACRO MlllS 
TEST 7: EXTENDED MODE FEATURES 



01 FEB 04 16:55 



4300 
4S01 
4302 
4303 
4304 
4300 
4309 



4310 

4311 
4312 
4313 
4314 
4315 
4319 



4320 

4321 
4322 
4323 
4324 
4325 
4326 
4330 



4331 

4332 
4335 
4334 
4535 
4556 
4557 
4556 
4559 
4540 
4541 
4542 
4545 
4544 
4545 
4546 
4547 
4348 
4349 



063430 
063432 
063440 
063444 

063450 
063452 
063456 
063460 
063460 
063462 
063464 
063466 
063470 
063470 
063472 
063476 
063500 
063502 
063506 
065512 
065512 
065514 
063516 
063520 
0635P2 
063522 
063524 
063550 
065552 
063536 
063540 
063542 
063546 
063546 
063550 
063552 
063554 
065556 
065556 
065560 
063564 
065572 



065600 
065606 
063612 
065616 
065622 
065626 
065632 
065634 



011724' 

013737 002174' 067260' 20»! 
012704 067240' 
004737 010552' 
103407 

005237 002214' 
010001 

104456 

001276 
005046' 
011724' 



25»i 



104406 

004737 010704' 

103411 

010004 

016501 00000? 
005237 002214' 

104456 

001277 

070524' 

011756' 

104406 

015701 067270' 
010102 

052702 000002 

020102 

001406 

005257 002214' 

104456 

001500 

070220' 

015564' 

104406 

012703 000024 

012757 000400 067576* 

015737 003116' 067572' 



50t: 



401: 



MOV UNITN.T350SU 

MOV #T35PACKFT.R4 

JSR PC.UR*CHR 

BCS 25* 

INC TATFLL 

MOV RO.Rl 

ERRHRD ERRNO.'iMTM.X.SriMSG 



SEQ 172 



.WORD SFIMSG 

I SET UP DRIVE NUMBER 
{SUBROUTINE NEEDS PACKET ADDRESS 
I ISSUE WRITE CMARACTERISTICS 
iBR. IF COMMAND ISSUED OK 

•ERROR COUNT 
I SAVE CONTENTS OF TSSR 
lURITE CHARACTERISTISC 



FAILED 
TRAP 
.WORD 
.WORD 
.WORD 



CKLOOP 




iLOOP IF SELECTED 






TRAP 


JSR 


PC. REWIND 


iCALL TAPE REWIND COTtlANO 


BCS 


30 1 


iBR, IF NO PROBLE^• 


MOV 


R0.R4 


1 SET UP REWIND PACKET ADDRESS 


MOV 


TSSR(R5).R1 


»GET TSSR FOR PRINTOUT 


INC 


FATFLG 


i ERROR COUNT 


ERRHRD 


ERRNO, r3SRWN.PKTSSR 


1 REWIND NOT ACCEPTED 



TRAP 
.WORD 



WRITE DATA.ACK.CVC>1 COMMAND 



CtERHRD 

702 

WRTMSG 
SFIMSG 

C«CLr I 



C*ERhRD 
70S 







.WORD 


T35RWN 






.WORD 


PKTSSR 


CKLOOP 




jLOOP IF SELECTED 








TRAP 


C»CLPl 


MOV 


T358FR»6.Rl 


iPICK UP XSTO 




MOV 


R1.R2 


t SET UP EXPECTED 




BIS 


•6IT1.R2 


tSET BOT BIT IN EXPECTED 




CMP 


R1.R2 


iDOES EXP - REC'O 




BEG 


40 < 


:BR. IF EQUAL (OK) 




INC 


FATFLG 


lERROR COUNT 




ERRHRD 


ERRNO, T35B0T.EXPREC 


{TAPE NOT AT BOT AFTER REWIND 








TRAP 


CtERHRD 






.WORD 


704 






.WORD 


T3580T 






.WORD 


fcxPREC 


CKLOOP 




;LOOP IF SELECTED 








TRAP 


ClCLPl 


MOV 


•20. .R3 


1 NUMBER OF RECORDS 




MOV 


•256..T55SZ 


t SET UP RECORD SIZE 




NOV 


FREE.T35WB 


1 ADDRESS OF WRITE BUFFER 





012737 140005 067570' HOV 

012704 067370' MOV 

010465 000000 SOI: MOV 

004737 016140' JSR 

016501 000002 MOV 

012702 000200 MOV 

020102 CMP 

001406 BEQ 



#140005. T55PK 5 

#T35PK3.R4 

R4,TSDB(R5) 

PC.WAITF 

TSSR(R5),R1 

•SSR.R2 

R1.R2 

60 1 



I WRITE DATA.ACK.CVC-1 COMMAND 
iSET UP R4 WITH PACKET ADDRESS 
I ISSUE COMMAND 
iWAIT FOR SSR TO SET 
I GET TSSR CONTENTS 
I SET UP EXPECTED 
(ARE THEr EQUAL 
jBR. IF OK 



TEST I HARDUARE TEST 1 8 TEJT MACRO Ml I IS 
TEST 7: EXTENDED MODE FEATURES 



E14 



01 FEB 84 18:55 



4S50 
4S54 



4355 

4356 
4357 
435« 
4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 



06 36 36 
063642 
063642 
063644 
063646 
063650 
063652 
063652 
063654 
063656 



4367 
4366 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4362 



4383 

4364 

4365 
4366 
4367 
4391 
4392 



4393 



063660 
063666 
063666 
063672 
063674 
063700 
063702 
063706 
063710 
063714 
063716 
063722 
063724 
063730 
063732 
063740 
063746 
063752 
063756 
063762 
€'■^764 
06J766 
063772 
063772 
063774 
063776 
064000 
064002 
064002 
064004 
064010 
064014 
064016 
064022 
064024 
064024 
064026 
064030 
064032 
064034 



005257 002214' 

104457 

001301 

070146- 

011736- 

104406 
005303 
001355 



INC FATFLG 

ERRSOFT ERRN0.T35UDE.PKTSSR 



60* ; 



CKLOOP 

DEC 
BNE 



R3 
501 



SEO 175 



lEPROR COUNT 
iTSSR INCORRECT AFTER WRITE DATA 

TRAP C»ERSOFT 
. WORD 705 
.WORD T35UOE 
.WORD PKTSSR 

:L00P IF SELECTED 

TRAP C<CLP1 

I BUMP RECORD COUNTER 

I BR. IF MORE RRECOPDS TO COUNT 



WAIT FOR TAPE TO STOP ALL HQTIGN 



012737 000012 067422' 



012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001361 
005737 
001042 
112737 
112737 
012704 
010465 
004737 
103407 
010001 
005237 

104456 

001302 

072302' 

011736* 



104406 

012704 067240- 
004737 010552' 
103407 

005237 002214' 
OlOOOl 



000250 

002116' 

177772 

177756 

067422' 

002220' 

000200 067401- 
000010 067400' 
0673SO' 
000000 
016226' 

002214' 



70»i 



MOV 
DELAY 



♦10. ,T35DLY 
250 



I SET UP DELAY COUNTER 
iUAIT ABOUT .25 SEC 



MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 



♦250. (PC). 
0 

L»DLY.(PC). 
0 

-6CPC) 
.-4 

-22CPC) 
-20 



DEC 


T35DLY 


iBUMP COUNTER DOUN 


BNE 


70 » 


iBR. IF MORE TO DELAY 


TST 


EXTFEA 


1 CHECK FOR EXTEM)ED FEATURES SU SUITCM 


BNE 


not 


tW IF SWITCH IS ON 


MOVB 


♦200.T356S1 


iWRITE MISCELLANEOUS CONT/READ STATUS 


MOVB 


•10.T35BS0 


{FUNCTION SELECTION BIT (TURN ON EXTFEA HU SWITCH) 


MOV 


♦T35PK2.R4 


i WRITE SU8SYS MEM PACKET 


MOV 


R4.TS0B(R5) 


i ISSUE COMMAND 


JSR 


PC.CMKTSSR 


(WAIT FOR SSR 


BCS 


901 


iBR. IF NO ERROR 


MOV 


RO.Rl 


1 ERROR. SAVE TSSR 


INC 


FATFLG 


1 ERROR COUNT 


ERRHRD 


ERRNO. T35SSR. PKTSSR 


tTSSR NOT CORRECT AFTER URT. MISCELLANEOUS 



90*1 



TRAP 
.WORD 
.WORD 
.WORD 



104456 

001303 

005046- 

011724' 



CKLOOP 




J LOOP IF SELECTED 






TRAP 


MOV 


♦T35PACKET.R4 


J SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.WRTCHR 


J ISSUE WRITE CHARACTERISTICS 


BCS 


100 < 


J BR. IF COMMAND ISSUED OK 


INC 


FATFLG 


(ERROR COUNT 


MOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 


ERRHRD 


ERRNO . WR TMSG . SF IMSG 


{WRITE CHARACTERISTISC FAILED 



CtERHRD 
706 

T35S5R 
PKTSSR 

C»CLPl 



1001: CKLOOP 



t SCOPE LOOP 



TRAP 
.WORD 
.WORD 
.WORD 



C»ERHRO 

707 

URTMSG 
SFIMSG 



Fi4 



TE 



ST I 


HARDWARE TEST 


1 8 TEST 


MACRO Ml lis 01 


FFfl A4 


1 A • 

AO " ^ J 




ScU 174 


ST 7 


: FX TENDED MODE 


FEATURES 












064034 


104406 










TOAD 




4394 


064036 


012737 


176750 


067422' 1101: 


MOV 


#65000. . T550LY 


iSET UP DFLAY rrXJNTFR 


4395 


064044 


005037 


067416' 




CLR 


T35CNT 


1 DELAY COUNTER 




4396 
















4397 


















4398 


















4399 








tPEUINO 


IMED. INTERRUPT. ACK.CVC-1. IE -0 


COMMAND 




4400 








• 










4401 


















4402 


















4403 


064050 


012737 


142012 


067370' 


MOV 


•142012. TS5PK 3 


iREUiND IMED INTERRUPT ACK CvC 




4404 


064056 


012704 


067570' 




nov 


«T35PK3.R4 


iSET UP R4 UITM PACKET ADDRESS 


4405 


064062 


010465 


000000 




MOV 


R4.TSD6CR5) 


1 ISSUE COMMAND 




4406 


064066 


016501 


000002 


120*: 


nov 


TSSRCR5).R1 


iGET TSSR CONTENTS 




4407 


064072 


052701 


000200 




BIT 


•SSR.Rl 


1 CHECK FOR SSR SET 




4406 


064076 


001021 






BNE 


1501 


iBR. UHEN SSR IS SET 




4409 


064100 


005257 


067416' 




INC 


T55CNT 


(BUMP THE CYCLE COUNTER 




4410 


064104 








DELAY 


1 


1 DELAY TO KEEP COUNTER DOWN 






064104 


012727 


000001 








MOV 


♦l.CPO* 




064110 


000000 










.WORD 


0 




064112 


015727 


002116' 








HOV 


L*DLY.(PC >• 




064116 


000000 










.UORD 


0 




064120 


005S67 


177772 








DEC 


-6(PC) 




064124 


001575 










BNE 


. -4 




064126 


005567 


177756 








DEC 


-22( PC) 




064132 


001567 










BNE 


. -20 


4411 


064134 


005557 


067422' 




OEC 


T550LY 


sDROP DEAD TIMER BUMP DOWN 




4412 


064140 


001552 






BNE 


120* 


tOR. IF MORE TIME TO GO 




4415 


064142 


012702 


000200 


1501: 


nov 


•SSR.R2 


iSET UP EXPECTED 




4414 


064146 


020102 






CNP 


R1.R2 


lARE THEY EQUAL 




4415 


064150 


001406 






6EQ 


140* 


;BR, IF OK 




4416 


064152 


005257 


002214' 




INC 


FATFLG 


lERROR COUNT 




4420 


064156 








ERRHRO 


ERRNO . T 35RUE . PK T S SR 


I TSSR INCORRECT AFTER URITE DATA 




064156 


104456 










TRAP 


CtERHRD 




064160 


001504 










.WORD 


708 




064162 


072650' 










.WORD 


T35RUE 




064164 


011756' 










.UORD 


PKTSSR 


4421 


064166 






140*: 


CKLOOP 




«LOOP IF SELECTED 






064166 


104406 










TRAP 


C»CLP1 


4422 


064170 


005757 


002216' 




TST 


INTRECV 


i CHECK FOR INTERRUPTS 




4423 


064174 


001410 






BEQ 


1501 


:BR. IF NO INTERRUPTS DETECTED 




4424 


064176 


016501 


000002 




MOV 


TSSft(RS).Rl 


sGET TSSR STATUS FOR PRINTOUT 




4425 


064202 


005257 


002214 ' 




INC^ 


F^TFLG 


(ERROR COUNT 




4429 064206 








errhro 


ERRNO. T55INT .PKTSSR 


i INTERRUPT RECEIVED (BAD) 






064206 


104456 










TRAP 


CtERHRO 




064210 


001505 










.WORD 


709 




064212 


072461' 










.UORD 


T35INT 




064214 


011736' 










.UORD 


PKTSSR 


4430 


064216 






150t: 


CKLOOP 




iLOOP IF SELECTED 






064216 


104406 










TRAP 


C*CLPl 



4451 

4432 I A******************************** 

4433 i 

4434 ,N0U CHECK FOR THE nOTION BITS SET 

4435 : 
4456 

4437 



Gi4 



TEST 
TEST 



I HAROUARE TEST 1 
7: EXTENDED MODE ri 



EATuSIs ^'^"^ 



01 FEB S4 18:5S 



SEQ 1 



44 sa 


064220 


0137C1 


067270' 






hOV 


T3SBFR*6.R1 


iPICK UP XSTO 






4459 


064224 


010102 








MOV 


R1.R2 


1 SET UP EXPECTED 






4440 


064226 


052702 


000200 






BIS 


•6117. R2 


tSET MOT BIT IN EXPECTED 






4441 


064232 


020102 








CMP 


R1.R2 


iDOES EXP . RECO 






4442 


064234 


001406 








BEQ 


1601 


iBR. IF EQUAL (OK) 






4443 


064236 


005237 


002214* 






INC 


FATFLG 


(ERROR COUNT 






4447 


064242 










ERRHRD 


ERRNO. T35M0T.EXPREC 


tTAPE NOT AT BOT AFTER REUIND 






064242 


104456 














TRAP 


CIERHRO 




064244 


001306 














.WORD 


710 




064246 


072363' 














.UORO 


T55M0T 




064250 


015364' 














.WORD 


EXPREC 


4448 


064252 








160<: 


CKLOOP 




J LOOP IF SELECTED 








064252 


104406 














TRAP 


CICLPI 


4449 0642S4 


013701 


067274' 






MOV 


T35BFR»12.R1 


jPICK UP XST2 






4450 


064260 


010102 








MOV 


RI.R2 


J SET UP EXPECTED 






4451 


064262 


052702 


100000 






BIS 


»6IT15.R2 


jSET OPM BIT IN EXPECTED 




4452 


064266 


020102 








CMP 


R1.R2 


J DOES EXP - RECO 






4453 


064270 


001406 








BEQ 


170* 


iBR. IF EQUAL (OK) 






4454 


064272 


005237 


002214* 






INC 


FATFLG 


(ERROR COUNT 






4458 


064276 










ERRMRO 


ERRNO . T 350PM . E XPRE C 


sOPM BIT NOT SET 








064276 


104456 














TRAP 


CtERHRO 




064300 


001307 














.WORD 


711 




064302 


072552' 














.WORD 


T 350PM 




064304 


015364' 














.WORD 


EXPREC 


4459 064306 








170»: 


CKLOOP 




{LOOP IF SELECTED 








064306 


104406 














TRAP 


C»CLPl 


4460 


064310 


012737 


000027 


067422' 




MOV 


4>2i. .T350LY 


(SET UP DELAY COUNTER 






4461 


064316 








175i: 


DELAY 


250 


(START DELAY 








064316 


012727 


000250 












MOV 


•250. (PC)* 




064322 


000000 














.WORD 


0 




064324 


013727 


002116* 












MOV 


L$OLY.(PC)'- 




064330 


000000 














.WORD 


0 




064332 


005367 


177772 












DEC 


6(PC) 




064336 


001375 














BNE 


. -4 




064340 


005367 


177756 












DEC 


-22( PC) 




064344 


001367 














BNE 


. -20 


4462 


064346 


005337 


067422' 






OtC 


T35DLt 


(BUMP DELAY COUNTER 






4463 


064352 


001361 








BNE 


175$ 


sBR. IF MORE DELAY 






4464 


064354 










ENDSUB 












064354 














L10064: 








064354 


104403 














TRAP 


C*ESUB 


4465 


064356 


023727 


002214' 


000017 




CMP 


FATFLG. •IS. 


(IS ERROR COUNT 


AT 25 




4466 


064364 


103402 








BLO 


999* 


jBR. IF LESS THAN 25 




4467 


064366 


004737 


017074' 






JSR 


PC.CKDROP 


(TRY TO DROP THE UNIT 




4468 


064372 








999t: 











4469 
4470 
4471 
4472 
4475 
44 74 
4475 
4476 
4477 
4478 
4479 
4480 



TEST 7: SUBTEST 2 



WITH THE INTERRUPT ENABLE (IE) BIT SET (1). CAUSES ALMOST 
IMMEDIATE TERMINATION AND AN INTERRUPT. STATUS IN THE MESSAGE 
BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 



TEST 
TEST 



H14 



HAROUA'iE TEST 1 8 TEST MACRO Ml 113 
EXTENDED MODE FEATuf^ES 



01 FEB a4 10:55 



SEQ 176 



4481 
4482 
4483 
4484 
4485 



4486 


064372 










BGNSUB 




!>>>>>>>>>>>> BEGIN SUBTEST >> 


»>>>>>>>>> 




064372 














T7.2: 






064372 


104402 












TRAP 


CtBSUB 


4487 


064374 










SETPRI 


•PRIOO (ENABLE 


INTERRUPTS. 






064374 


012700 


000000 










MOV 


4PRI00.R0 




064400 


104441 












TRAP 


C$SPRI 


4488 


064402 


004737 


073044* 






JSR 


PC.T35REST 


J SET COMMAND PACKET 




4489 


064406 


005037 


002216' 






CLfl 


INTRECV 


1 CLEAR INTERRUPT REChlVEO FLAG 




4490 


064412 


004737 


073136' 






JSR 


PC.T35RT2 


1 SET UP OTHER COMMAND PACKET 




4491 


064416 


004737 


073200' 






JSR 


PC.T35RT3 


J SET UP OTHER COMMAND PACKET 




4492 


064422 


012737 


176750 


067422' 




MOV 


♦65000. .T35DLY 


iSET UP DELAY COUNTER 




4493 


064430 


005037 


067416' 






CLR 


T35CNT 


(CLEAR COUNTER 




4494 


064434 


004737 


015664* 




10$: 


JSR 


PC.SOFINIT 


tDO INITIALIZE ON CONTROLLER 




4495 


064440 


103426 








BCS 


20$ 


iBR IF INIT WAS OK 




4496 


064442 










DELAY 


250 


(DELAY ABOUT .25 SEC 






064442 


012727 


000250 










MOV 


»^50.(PC)» 




064446 


000000 












• WORD 


0 




064450 


013727 


002116' 










MOV 


L»OLT.(PC). 




064454 


000000 












.UORO 


0 




064456 


005367 


177772 










DEC 


6CPC) 




064462 


001375 












BNE 


. -4 




064464 


005367 


177756 










DEC 


-22( PC) 




064470 


001367 












BNE 


. 20 


4497 


064472 


005337 


067422' 






DEC 


T350LY 


(BUMP COUNTER 




4498 


064476 


001356 








BNE 


10$ 


(BR. IF COUNTER NOT DONE 




4499 


064500 


005237 


002214' 






INC 


FATFLG 


s ERROR COUNT 




4503 


064504 


010001 








MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




4504 


064506 










ERROF 


ERRNO . SF lERR , SF IMSG 


(FATAL ERROR TSSR WAS NOT OK 






064506 


104455 












TRAP 


C$ER0F 




064510 


001310 












.UORD 


712 




064512 


003642' 












.WORD 


SFIERR 




064514 


011724' 












.WORD 


SFIMSG 


4505 


064516 


013737 


002174' 


067260' 


20<: 


MOV 


UNITN.T55DSU 


(SET UP DRIVE NUMBER 




4506 


064524 


012704 


067240' 






MOV 


♦T35PACKET .R4 


(SUBROUTINE NEEDS PACKET ADDRESS 


4507 


0645S0 


004737 


010552' 






JSR 


PC.WRTCHR 


(ISSUE WRITE CHARACTERISTICS 




4508 


064534 


103407 








BCS 


25 1 


(BR. IF COMMAND ISSUED OK 




4509 


064536 


005237 


002214' 






INC 


FATFLG 


(ERROR COUNT 




4513 


064542 


010001 








MOV 


RO.Rl 


(SAVE CONTENTS OF TSSR 




4514 


064544 










ERRHRO 


ERRNO .WRTMSG.SFIMSG 


(WRITE CHARACTERISTISC FAILED 






064544 


104456 












TRAP 


C tERHRD 




064546 


001311 












.WORD 


713 




064550 


005046' 












.WORD 


WRTMSG 




064552 


011724' 












.WORD 


SFIMSG 


4515 


064554 








25$: 


CKLOOP 




(LOOP IF SELECTED 






064554 


104406 












TRAP 


C$CLPl 


4516 


064556 


004737 


010704' 






JSR 


PC. REWIND 


(CALL TAPE REWIND COMMAND 




4517 


064562 


103411 








BCS 


30$ 


(BR. IF NO PROBLEM 




4518 


064564 


010004 








MOV 


R0.R4 


(SET UP REWIND PACKET ADDRESS 




4519 


064566 


016501 


000002 






MOV 


TSSRCR5).R1 


(GET TSSR CONTENTS 




4520 


064572 


005237 


002214' 






INC 


FATFLG 


(ERROR COUNT 




4524 


064576 










ERRHRO 


ERRNO . T35RUN . PK TSSR 


(REWIND NOT ACCEPTED 






064576 


104456 












TRAP 


C*ERHR0 















114 






TEST 1 


HARDWARE TEST 


1 8 TEST 


MACRO Ml I 13 


01 FEB 84 


18:55 




SEQ I / 


TEST 7 


: EXTENDED nOOE 


FEATURES 












064600 


001512 










. UORO 


714 




064602 


070524' 










.UOND 


T35RUN 




064604 


011736' 










. UORD 


Aft^ ▼ ^ ^ A 

pktssh 




064606 






oOf : 


LKLOUP 




;LQ\Jr IF ocLcCTcU 






064606 


104406 










TRAP 


CiCLPl 


4526 


064610 


013701 


067270 




nuv 


1 330r H »D , HI 






4527 


064614 


010102 






nuv 


H1,R2 


I SET Iff' cXPtCTtD 




4528 


064616 


052702 


000002 




DTC 


♦BIT 1 tH2 


jScT BUT BIT IN cXPtCTtu 




4529 


064622 


020102 








nl ,R2 


. A AC C C W A _ AC ^ » A 

tUUcb cXP ■ RcC U 




4530 


064624 


001406 








ii/> # 


|oH, IF C.UUAL vUK) 




4531 


064626 


005237 


002214' 








ICKHUH LUUNI 




4535 


064632 








tHHnHU 


CDOkin TVCDAT CvDDCI^ 
cHNNUt I03DUI .kArNC.L 


. TADC fc.*AT AT DAT ACTCA DCiiTftjA 

t IHKt NUI Ml BUI W fcH NtWINU 






064632 


104456 










TO A A 


f AuA A 




064634 


001313 










. WUHD 


715 




064636 


070220* 










. WOku 


T »C A A T 




064640 


015364' 










■ lAAA 

. UORO 


r w AAP ^ 


4536 


064642 






40» : 


CKLOUr 




tLOUr' Xr 3eLcCTc.D 






064642 


104406 










THMr' 


C»CLP1 


4537 


064644 


012703 


000024 




nuv 








4538 


064650 


012737 


0004QO 


067376 


MAI/ 


9230 . 1 1 333/ 


. CC T 1 ID AC/^nOn CTTC 

i at T Ur RcLOHD a IZz. 






064656 


013737 


UOollD 


OofSfet 


nuv 


r ritC. t I 33Wtf 


.Annoccc udttc oicccd 
;flUUnfc3b Ur MNlIc DUr r cn 






















4541 



















4542 
4543 
4544 
4545 
4546 



URITE DATA.ACK.CVC-1 COMMAND 



4547 


064664 


012737 


140005 


067370' 


MOV 


•140005. T35PK3 


sURITE OATA.ACK.CVC'l 


COMMAND 




4548 


064672 


012704 


067370' 




MOV 


•TS5PK3.R4 


iSET UP R4 WITH PACKET 


ADDRESS 




4549 


064676 


010465 


000000 


50$; 


MOV 


R4.TS0e(R5) 


s ISSUE COMMAND 






4550 


064702 


004737 


016140' 




JSR 


PC.HAITF 


lUAIT FOR SSR TO SET 






4551 


064706 


016501 


000002 




MOV 


TSSR(R5).R1 


(GET TSSR CONTENTS 






4552 


064712 


012702 


000200 




MOV 


«SSR.R2 


J SET UP EXPECTED 






4553 


064716 


020102 






CMP 


R1.R2 


{ARE THEr EQUAL 






4554 


064720 


001406 






BEQ 


601 


iBR, IF OK 






4555 


064 722 


005237 


002214' 




INC 


FATFLG 


1 ERROR COUNT 






4559 


064726 








ERRHRD 


ERRNO . T3SUDE . PK TSSR 


jTSSR INCORRECT AFTER 


URITE DATA 




064726 


104456 












TRAP 


CIERHRD 




064730 


001314 












.WORD 


716 




064732 


070146' 












.WORD 


T35U0E 




064734 


011736' 












.WORD 


PKTSSR 


4560 


064736 
064736 


104406 




60): 


CKLOOP 




sLOOP IF SELECTED 


TRAP 


C»CLP1 



4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 



UAIT FOR TAPE TO STOP ALL MOTION 



064740 
064746 
064746 
064752 
064754 
064760 



012737 000012 067422' 

012727 000250 
000000 

013727 002116' 
000000 



70t: 



MOV 
DELAY 



♦IO..T350LT 
250 



I SET UP DELAY COUNTER 
;UAIT ABOUT .25 SEC 



MOV 
.WORD 
MOV 
.WORD 



•2S0.(PC)» 
0 

L»DL> .CPC^• 

0 



J14 



TEST 
TEST 



HARDWARE TEST 1 8 TEST MACRO MlllS 
EXTENDED MODE FEATURES 



4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4585 



4586 

4587 
4588 
4589 
4590 
4594 
4595 



4596 

4597 
4598 
4599 
4600 
4601 
4602 
4605 
4604 
4605 
4606 
4607 
4608 
4609 
4610 
4611 
4612 
4613 



064762 005S67 

064766 001375 

064770 005567 

064774 001567 

064776 005337 

065002 001361 

065004 005737 

065010 001042 

065012 112737 

065020 112737 

065026 012704 

065032 010465 

065036 004737 

065042 103407 

065044 OlOOOl 

065046 005237 
065052 

065052 104456 



177772 
177756 
067422' 
002220' 

000200 067401 ' 
000010 067400' 
067350' 
000000 
016226' 

002214' 



r CO o4 


18:55 




SEQ 178 






DEC 


-6(PC) 






BNE 


. -4 






DEC 


-22(PC) 






BNE 


.-20 


DEC 


T350Lr 


iBUMP COUNTER DOWN 


BNE 


701 


iBR, IF MORE TO DELAY 




TST 


EXTFEA 


1 CHECK FOR EXTENDED FEATURES 


SU SWITCH 


BNE 


not 


iBR IF SWITCH IS ON 




MOVB 


#200,T358S1 


iWRITE MISCELLANEOUS CONT/READ STATUS 


MOVB 


#10, T356S0 


{FUNCTION SELECTION BIT (TURN 


ON eXTFEA HW 5UITCH) 


MOV 


#T55PK2,R4 


1 WRITE SUBSYS MEM PACKET 


MOV 


R4.TS0B(R5) 


t ISSUE COMMAND 




JSR 


PC.CHKTSSR 


iWAIT FOR SSR 




arc 




iBR. IF NO ERROR 




MOV 


RO.Rl 


1 ERROR. SAVE TSSR 




INC 


FATFLC 


.^RROR COUNT 




ERRHRO 


ERRNO. TS5SSR.PKTSSR 


J TSSR HC CORRECT AFTER WRT. 


.'ISCELLANEOUS 



TRAP 



OERHRD 



065054 


001315 








.WORD 


717 


065056 


072302' 








.WORD 


T35SSR 


065060 


011736' 








.WORD 


PKTSSR 


065062 




90$: 


CKLOOP 




iLQOP IF SELECTED 




065062 


104406 








TRAP 


C»CLP1 


065064 


012704 


067240' 


MOV 


#T35PACKET.R4 


(SUBROUTINE NEEDS PACKET ADDRESS 


065070 


004737 


010552' 


JSR 


PC.WRTCHR 


» ISSUE WRITE CHARACTERISTICS 




065074 


103407 




BCS 


100* 


iBR, IF COMMAND ISSUED OK 




065076 


005237 


002214' 


INC 


FATFLG 


I ERROR COUNT 




065102 


010001 




MOV 


RO.Rl 


J SAVE CONTENTS OF TSSR 




065104 






ERRHRD 


ERRNO . WRTMSG . SF IMSG 


sWRITE CHARACTERISTISC FAILED 




065104 


104456 








TRAP 


C»ERHRD 


065106 


001316 








.WORD 


718 


065110 


005046' 








.WORD 


WRTMSG 


065112 


011724' 








.WORD 


SFIMSG 


065114 




100$: 


CKLOOP 




: SCOPE LOOP 




065114 


104406 








TRAP 


CtCLPl 


065116 


012737 


176750 067422* 1101: 


MOV 


•65000.. T350LT 


iSET UP DELAY COUNTER 




065124 


00S0S7 


067416' 


CLR 


T35CNT 


:OELA-i COUNTER 





REWIND IMMEDIATE. ACK.CVC-1. IE -1 COMMAND 



065130 012737 142212 067570' MOV 

065136 012704 067370' MOV 

065142 010465 000000 MOV 

065146 016501 000002 120t: MOV 

065152 032701 000200 BIT 

065156 001021 BNE 

065160 005237 067416' INC 

065164 DELAY 

065164 012727 000001 

065170 000000 

065172 015727 002116' 

065176 000000 

065200 005367 177772 



♦142212. T55PK3 
•T55PK5.R4 

R4.TS0BCR5) 

TSSR(R5).R1 

#SSR.RI 

130$ 

T35CNT 

1 



iREWlNO IMMEDIATE.ACK.CVC-l.IE-1 COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

: ISSUE COMMAND 

jGET TSSR CONTENTS 

J CHECK FOR SSR SET 

iBR. WHEN SSR IS SET 

iBUMP THE CYCLE COUNTER 

{DELAY TO KEEP COUNTER DOWN 

MOV ©l.CPC). 

.WORD 0 

MOV L $DLY. (PC)' 

.WORD 0 

DEC 6(PC) 



t<i4 



TEST I HARDWARE TEST 1 3 TEST MACRO M1113 
TEST 7: EXTENDED MODE FEATURES 



01 -FEB 84 18:55 



SEQ 170 





065204 


001375 












065206 


005367 


177756 










065212 


001367 










4614 


065214 


005337 


067422' 




DEC 


T350LY 


46IS 


065220 


001352 






BNE 


120* 


4616 


065222 


012702 


000200 


130* : 


MOV 


♦SSR.R2 


4617 


065226 


020102 






CMP 


R1.R2 


4618 


065230 


001406 






BEQ 


140) 


4619 


065232 


005237 


002214' 




INC 


FATFLG 


4623 


065236 








ERRHRO 


ERRNO . T35RUE , PK TSSR 




065236 


104456 










065240 


001317 












065242 


072650' 












065244 


011736* 










4624 


065246 
065246 


104406 




1401: 


CKLOOP 




4625 


065250 


005737 


002216' 




TST 


INTRECV 


4626 


065254 


001010 






BNE 


1501 


4627 


065256 


016501 


000002 




MOV 


TSSR(RS).R1 


4628 


065262 


005237 


002214' 




INC 


FATFLG 


4632 


065266 








ERRHRO 


ERRNO. T35NIN.PKTSSR 




065266 


104456 










065270 


001320 












065272 


072736- 












065274 


011736' 










4633 


065276 
065276 


104406 




150>: 


CKLOOP 





4634 

4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 
4650 



065300 
065304 
065306 
065312 
065314 
065316 
065322 
065322 
065324 
065326 
065330 



013701 
010102 
052702 
020102 
001406 
005237 

104456 

001321 
072363' 
015364' 



067270' 
000200 

002214' 



MOV T35BFRt6.Rl 

MOV R1,R2 

BIS «6IT7.R2 

CMP R1.R2 

BEQ 1601 

INC FATFLG 

ERRHRO ERRNO. T35M0T.EXPREC 



BNE . -4 

DEC 22(PC) 

BNC . 20 

I DROP DEAD TIMER BUMP DOWN 
iBR. IF MORE TIME TO GO 
iSET UP EXPECTED 
I ARE THEY EQUAL 
tBR. IF OK 

I ERROR COUNT 
iTSSR INCORRECT AFTER URITE DATA 

TRAP 

.WORD 

.UORO 

.WORD 

iLOOP IF SELECTED 

TRAP 

t CHECK FOR INTERRUPTS 

iBR, IF INTERRUPTS DETECTED 

I GET TSSR STATUS FOR PRINTOUT 
I ERROR COUNT 

{INTERRUPT NOT RECEIVED (BAG) 

TRAP 
.UORO 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



aNOW CHECK FOR THE MOTION BITS SET 



(PICK UP XSTO 

tSET UP EXPECTED 

(SET MOT BIT IN EXPECTED 

jOOES EXP - REC'D 

iBR. IF EQUAL (OK) 

(ERROR COUNT 
iTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 



4651 


065332 






1601: CKLOOP 




iLOOP IF SELECTED 




065332 


104406 








TRAP 


4652 


065334 


013701 


067274' 


MOV 


T356FR*12.R1 


jPICK UP XST2 


4653 


065340 


010102 




MOV 


R1.R2 


iSET UP EXPECTED 


4654 


065342 


052702 


100000 


BIS 


«BIT15.R2 


:SET 0PM BIT IN EXPECTED 


4655 


065346 


020102 




CMP 


R1.R2 


(DOES EXP - REC'D 


4656 


065350 


001406 




BEQ 


170 » 


iBR. IF EQUAL (OK) 


4657 


065352 


005237 


002214' 


INC 


FATFLG 


1 ERROR COUNT 


4661 


065356 






ERRHRO 


ERRNO . T 350PM , EXPREC 


tOPM BIT NOT SET 




065356 


104456 






TRAP 




065360 


001322 








.WORD 




065362 


072552' 








.WORD 



CtERHRD 
719 
T35RWE 
PKTSSR 

CICLPl 



CtERHRD 
720 

T35NIN 
PKTSSR 

C»CLP1 



CtERHRD 
721 

T35M0T 
EXPREC 

CtCLPl 



CtERHPO 

722 

T 350PM 



TEST 
TEST 



1 - HAROUARC TEST 1 8 
7. EXTENDED MODE FEAT 



Sil 



Li4 



MACRO M1115 01 FEB M 18:55 



S£Q 160 





065364 


015364' 














.WORD 


EXPREC 


4662 


065366 








I70t: 


CKLOOP 




jLOOP IF SELECTED 








065366 


104406 














TRAP 


CICLPl 


4663 


065370 


012737 


0000?7 


067422' 




MOV 


♦23. , T550LY 


iSET UP DELAY COUNTER 






4664 


065376 








175«: 


OELAr 


250 


1 START DELAY 








065376 


012727 


000250 












MOV 


•250 . ( PC) ♦ 




065402 


000000 














.UORD 


c 




065404 


013727 


002116' 












MOV 


L $DL Y . (PC ) » 




065410 


000000 














.WORD 


0 




06S412 


005367 


177772 












DEC 


6(PC ) 




065416 


001375 














BNE 


, -4 




065420 


005367 


177756 












DEC 


-22(PC) 




065424 


001367 














BNE 


. 20 


4665 


06S426 


005337 


067422' 






DEC 


T35DLY 


tBUMP DELAY COUNTER 






4666 


065432 


001361 








BNE 


175* 


tBR. IF MORE DELAY 






4667 


065434 










ENDSUB 












065434 














L 10065: 








065434 


104403 














TRAP 


CtESUB 


4666 


065436 


023727 


002214' 


000017 




CMP 


rATFI.G.»15. 


:IS ERROR COUNT 


AT 25 




4669 


065444 


103402 








BLO 


9991 


:6R. IF LESS THAN 25 




4670 


065446 


004737 


017074' 






JSR 


PC.CKDROP 


;TRy TO DROP THE UNIT 




4671 


065452 








9991: 













4672 
4673 
4674 
4675 
4676 
4677 
4676 
4679 
4660 
4681 
4662 
4683 
4684 
4665 
4686 
4687 
4666 
4689 
4690 
4691 
4692 



TEST 7. SUBTEST 3 



VERIFIES THAT THE NGN- TAPE -MOTION COMHANO GET STATUS. ISSUED 
IMMEDIATATELY AFTER TERMINATION OF A REUINO UITH IMMEDIATE 
INTERRUPT COMMAND, TERMINATES PROPERLY AND PROVIDES PROPER 
STATUS. FIRST. A NUMBER OF DATA RECORDS ARE URITTEN FROM BOT. 
THEN THE REWIND UITH IMMEDIATE INTERRUPT COMMAND IS ISSUED AND 
TERMINATION VERIFIED. THEN THE GET STATUS COMMAND IS ISSUED. 
THE GET STATUS SHOULD TERMINATE ALMOST IMMEDIATELY AND SHOW 
MOT'l AND OPM-1 IN THE MESSAGE BUFFER. AFTER A DELAY LONG 
ENOUGH TO ALLOkl THE REWIND TO COMPLETE AND THE TAPE COME TO 
REST. GET STATUS IS AGAIN ISSUED AND THE STATUS CHECKED; BOTH 
NOT AND OPM SHOULD BE CLEAR. 



4693 


065452 






BGNSUB 




<>>>>>>>>>>>> BEGIN SUBTEST >>•»>>>>>>>>> 




065452 










T7.3: 






065452 


104402 








TRAP 


C*BSUB 


4694 


065454 


004737 


073044' 


JSR 


PC.T35REST 


J SET C0MMAh40 PACKET 




4695 


065460 


004737 


073136' 


JSR 


PC.T35RT2 


tSET UP OTHER COMMAND PACKET 




4696 


065464 


004737 


073200' 


JSR 


PC.T35RT3 


: SET UP OTHER COMMAND PACKET 




4697 


065470 


004737 


015664' 


JSR 


PC.SOFINIT 


sDO INITIALIZE ON CONTROLLER 




4696 


065474 


103407 




BCS 


20 ( 


:8R IF INIT WAS OK 




4699 


065476 


005237 


002214' 


INC 


FATFLG 


t ERROR COUNT 




4703 


065502 


010001 




MOV 


RO.Rl 


; CONTENTS OF TSSR REGISTER 




4704 


065504 






ERRDF 


ERRNO , SFIERR , SFIMSG 


(FATAL ERROR TSSR WAS NOT OK 






065504 


104455 






TRAP 


CJERDF 




065506 


001323 








.WORD 


723 




065510 


003642' 








.WORD 


SFIERR 



II! 



Mi4 



MACRO nillS 01 FEB 84 18:55 



SEQ 161 





065512 


011724' 










.WORD 


SFIMSG 


4705 


065514 


013737 


002174' 


067260' 20$: 


MOV 


LWITN.T350SW 


iSET UP UNIT NUMBER IN PACKET 




4706 


065522 


012704 


067240' 




MOV 


♦T35PACKET.R4 


(SUBROUTINE NEEDS PACKET ADDRESS 


4707 


065526 


004737 


010552' 




JSR 


PC.URTCHR 


J ISSUE WRITE CHARACTERISTICS 




4708 


065532 


103407 






BCS 


23( 


iBR. IF COMMAND ISSUED OK 




4 709 


065534 


005237 


002214' 




INC 


•^ATFLG 


(ERROR COUNT 




4713 


065540 


010001 






MOV 


RO.Rl 


(SAVE CONTENTS OF TSSR 




4714 


065542 








ERRHRO 


ERRNO . URTMSG , SF IMSG 


(WRITE CHARACTERISTISC FAILED 






065542 


104456 










TRAP 


CIEPMRO 




065544 


001324 










.WORD 


724 




06S546 


005046' 










.WORD 


WRTMSG 




065550 


011724' 










.WORD 


SFIMSG 


4715 


065552 






23$: 


CKLOOP 




(LOOP IF SELECTED 






065552 


*.')4406 










TRAP 


C$CLP1 


4716 


065554 


O04737 


010704' 




JSR 


PC. REWIND 


(CALL TAPE REWIND COMMAND 




4717 


065560 


103411 






BCS 


30$ 


(BR, IF NO PROBLEM 




4718 


065562 


010004 






MOV 


R0.R4 


(SET UP REWIND PACKET ADDRESS 




4719 


065564 


016501 


000002 




MOV 


TSSR(R5),Rl 


(GET CONTENTS FOR CALL 




4720 


065570 


005237 


002214' 




INC 


FATFLG 


(ERROR COUNT 




4724 


065574 








ERRHRO 


ERRNO . T35RWN . PK TSSR 


(REWIND NOT ACCEPTED 






065574 


104456 










TRAP 


C$ERHRO 




065576 


001325 










.WOPD 


725 




065600 


070524' 










.WORD 


T35RWN 




065602 


011736' 










.WORD 


PKTSSR 


4725 


065604 






30«: 


CKLOOP 




(LOOP IF SELECTED 






065604 


104406 










TRAP 


C$CLP1 


4726 


065606 


013701 


067270' 




MOV 


T358FR*6.R1 


(PICK UP XSTO 




4727 


065612 


010102 






MOV 


R1.R2 


(SET UP EXPECTED 




4728 


065614 


052702 


000002 




BIS 


«eiTl,R2 


(SET BOT BIT IN EXPECTED 




4729 


065620 


020102 






CMP 


R1.R2 


;OOES EXP - REC'D 




4730 


065622 


001406 






BEQ 


40$ 


(BR. IF EQUAL (OK) 




4731 


065624 


005237 


002214' 




INC 


FATFLG 


(ERROR COUNT 




4735 


065630 








ERRHRO 


ERRNO . T35B0T . EXPREC 


(TAPE NOT AT BOT AFTER REWIND 






065630 


104456 










TRAP 


CtERHRO 




065632 


001326 










.WORD 


726 




065634 


070220' 










.WORD 


TSSBOT 




065636 


015364' 










.WORD 


EXPREC 


4736 


065640 






40$: 


CKLOOP 




(LOOP IF SELECTED 






065640 


104406 










TRAP 


C$CLPl 


4737 


065642 


012703 


000024 




MOV 


♦20. .R3 


(STARTING RECORD SIZE 




4738 


065646 


013737 


003116' 


067372' 


MOV 


FREE.T35WB 


(STARTING WRITE BUFFER ADDRESS 




4739 


















4740 








<k** ******************** ********** 




4741 


















4742 








j WRITE 


OATA.CVC 


-l.ACK COMMAND 






4743 








• 








4744 








t *************************************** 4 




4745 


















4746 


065654 


012737 


140005 


067370* 65 »: 


MOV 


#140005, T35PK3 


(WRITE DATA,CVC-1,ACK COMMAND 




4747 


065662 


012704 


067370' 




MOV 


♦T35PK3.R4 


(SET UP R4 WITH PACKET ADDRESS 




4748 


065666 


010300 






MOV 


R3.R0 


(SET PATTERN IN COPRECT REGISTER 


4749 065670 


004737 


017314' 




JSR 


PC.FILLMEM 


(FILL MEMORY WITH RECORD SIZE 




4750 


065674 


010337 


067376' 




MOV 


R3,T35SZ 


(SET UP RECORD SIZE IN PACKET 




4751 


065700 


010465 


000000 




MOV 


R4.TS0B(R5) 


(ISSUE COMMAND 




4752 


065704 


004737 


016140' 




JSR 


PC.WAITF 


(WAIT FOR SSR TO SET 




4753 


065710 


016501 


000002 




MOV 


TSSR(R5).R1 


(GET TSSR CONTENTS 




4754 


065714 


012702 


000200 




MOV 


«SSR.R2 


(SET UP EXPECTED 





N14 

TEST 1 - HARDWARE TEST I 8 TEST MACRO M1115 01 FEB 84 18:55 SEQ 182 

TEST 7: EXTENDED MODE FEATURES 



4755 


065720 


020102 




CMP 


R1.R2 


J ARE THEY EQUAL 




4756 


065722 


001406 




BEQ 


80* 


iBR. IF OK 




4757 


065724 


005237 


002214' 


INC 


FATFLG 


; ERROR COUNT 




4761 


065730 






ERRHRO 


ERRNO . T 35WDC . PK T SSR 


;TSSR INCORRECT AFTER URITE DATA 




065730 


104456 








TRAP 


CtERHRO 




065732 


001327 








.WORD 


727 




065734 


071060' 








. WORD 


T35W0C 




065736 


011736' 








'.UORD 


PKTSSR 


4762 


065740 




80$: 


CKLOOP 




iLOOP IF SELECTED 






065740 


104406 








TRAP 


C$CLP1 


4763 
















4764 
















4765 
















4766 






s WRITE 


DATA RETRY. CVC-l.ACK COMMAND 






4767 
















4768 
















4769 
















4770 


065742 


012737 


141005 067370' 


MOV 


«141005.T35PK3 


1 WRITE DATA RETRY ,CVC-1 .ACK COMMAND 


4771 


065750 


010465 


000000 


MOV 


R4.TSDB(R5) 


i ISSUE COMMAND 




4772 


065754 


004737 


016140' 


JSR 


PC.WAITF 


{WAIT FOR SSR TO SET 




4773 


065760 


016501 


000002 


MOV 


TSSR(RS).R1 


iGET TSSR CONTENTS 




4774 


065764 


012702 


000200 


MOV 


•SSR.R2 


;SET UP EXPECTED 




4775 


065770 


020102 




CMP 


R1,R2 


lARE THEY EQUAL 




4776 


065772 


001406 




BEQ 


90$ 


iBR. IF OK 




4777 


065774 


005237 


002214' 


INC 


FATFLG 


s ERROR COUNT 




4781 


066000 






ERRHRD 


ERRNO . T35URF . PKTSSR 


iTSSR INCORRECT AFTER WRITE DATA RETRY 




066000 


104456 








TRAP 


C$ERHRD 




066002 


001330 








.WORD 


728 




066004 


072125' 








.WORD 


T35WRF 




066006 


011736' 








WORD 


PKTSSR 


4782 


066010 




90$: 


CKLOOP 




;LOOP IF SELECTED 






066010 


104406 








TRAP 


C$CLP1 


4783 


066012 


005723 




TST 


CR3}» 


:BUMP RECORD SIZE COUNTER 




4784 


066014 


020327 


000052 


CHP 


R3.*42. 


:AT 42 SIZE YET 




4785 


066020 


001315 




BNE 


65$ 


:BR. IF MORE PECORDS TO WRITE 




4786 


066022 


004737 


010704' 


JSR 


PC. REWIND 


iCALL TAPE REWIND COMMAND 




4787 


066026 


103411 




BCS 


230$ 


iBR. IF NO PROBLEM 




4788 


066030 


010001 




MOV 


RO.Rl 


{SAVE TSSR 




4789 


066032 


016501 


000002 


MOV 


TSSRCR5).R1 


J GET TSSR CONTENTS 




4790 


066036 


005237 


002214' 


INC 


FATFLG 


(ERROR COUNT 




4794 


066042 






ERRHRO 


ERRNO. TSSRUN.EXPREC 


sREWIND NOT ACCEPTED 






066042 


104456 








TRAP 


CIERHRD 




066044 


001331 








.WORD 


729 




066046 


070524' 








.WORD 


T35RWN 




0660S0 


015364' 








.WORD 


EXPREC 


4795 


066052 




230$: 


CKLOOP 




:LOOP IF SELECTED 






066052 


104406 








TRAP 


C$CLP1 


4796 


066054 


013701 


067270' 


MOV 


T3S6FR»6.R1 


5 PICK UP XSTO 




4797 


066060 


010102 




MOV 


R1.R2 


iSET UP EXPECTED 




4798 


066062 


052702 


000002 


BIS 


«6IT1.R2 


;SET BOT BIT IN EXPECTED 




4799 


066066 


020102 




CMP 


R1.R2 


J DOES EXP - REC'O 




4800 


066070 


001406 




BEQ 


240$ 


iBR. IF EQUAL (OK) 




4801 


066072 


005237 


002214' 


INC 


FATFLG 


{ERROR COUNT 




4805 


066076 






ERRHRD 


ERRNO. T35B0T .EXPREC 


iTAPE NOT AT BOT AFTER REWIND 






066076 


104456 






TRAP 


CJERHRO 




066100 


001332 








.WORD 


730 




066102 


070220' 








.WORD 


T35B0T 



TEST 1 HAMMMRC TEST 1-0 TEST MACRO HlllS 
TEST 7: EXTENDED MODE FEATURES 



01 FEB M 16:55 



4006 

4607 
4606 
4609 
4610 
4811 
4812 
4613 
4614 
4615 
4616 
4817 
4616 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4631 



4632 

4633 
4634 
4635 
4636 
4637 
4636 
4639 
4640 
4641 
4645 



4646 

4647 
4646 
4649 
4650 
4851 
4652 
4653 
4854 

4655 



066104 
066106 
066106 
066110 
066114 



066122 
066130 
066134 
066140 
066144 
066150 
066154 
066160 
066164 
066170 
066172 
066174 
066200 
066200 
066202 
066204 
066206 
066210 
066210 
066212 
066216 
066220 
066224 
066226 
0662 SO 
066232 
0662S4 
066236 
066242 
066242 
066244 
066246 
066250 
066252 
066252 
066254 
066256 
066260 
066262 
066264 
066266 
066272 
066274 
066274 
066276 



015364' 
104406 

012703 000024 

01S7S7 003116' 067372' 



2401 : CKLOQP 

HOV 
HOV 



I LOOP ir SELECTED 



♦20. .R3 
FREE.T55RB 



.WORD 
TRAP 

iSTARTIt« RECORD SIZE 
{STARTING READ BUFFER ADDRESS 



SEO 185 

EXPREC 
CICLPl 



READ DATA.ACK COMMAND 



020102 
001406 



104456 

001^" 
06 /51c' 
011736' 

104406 

013702 003116' 
010304 

162704 000024 

060204 

021403 

001410 

011401 

010502 

005237 002214* 

104456 
001334 

072205' 
015364' 

104406 

005724 
160204 
020403 
001360 
005723 

020527 000050 
001313 

104406 



100001 067370' 2651: 


MOV 


•100001,T33PK3 


iREAO DATA.ACK COMMArC 


067370' 


MOV 


♦T35PK3.R4 


iSET UP R4 WITH PACKLT ADDRESS 


177777 


MOV 


♦177777, RO 
PC.FILLMEM 


iSET PATTERN IN CORRECT REGISTER 


017314' 


JSR 


iFILL MEMORY WITH RECORD SIZE 


067376' 


MOV 


R3.T35SZ 


t SET UP RECORD SIZE IN PACKET 


000000 


MOV 


R4.TS0B(R5) 


1 ISSUE COMMAND 


016140' 


JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 


000002 


MOV 


TSSR(R5).Rl 


iGET TSSR CONTENTS 


000200 


MOV 


♦SSR.R2 


I SET UP EXPECTED 




CMP 


R1.R2 


lARE TMEr EQUAL 




BEQ 


2601 


{BR. IF OK 


002214' 


INC 


FATFLG 


1 ERROR COUNT 




errhrd 


ERRN0.T35RDF.PKTSSR 


iTSSR INCORRECT AFTER READ DATA 



260* : 



2651: 



TRAP 
.UORD 
.WORD 
.WORD 



CKLOOP 




iLOOP IF SELECTED 






TRAP 


MOV 


FREE.R2 


jGET BUFFER ADDRESS 


MOV 


R3.R4 


iGET RECORD SIZE 


SUB 


♦20.. R4 


jPOINT BACK TO 1ST RECORD 


ADD 


R2.R4 


J POINT TO 1ST LOC IN BUFFER 


CMP 


(R4),R3 


(DATA WRITTEN ' READ 


BEQ 


2901 


sBR. IF DATA OK (GOOD') 


MOV 


(R4).R1 


(PICK UP BAD DATA 


MOV 


R3,R2 


1 SET UP EXPECTED 


INC 


FATFLG 


1 ERROR COUNT 


ERRHRD 


ERRN0.r350TA. EXPREC 


(DATA IN BUFFER NOT CORRECT 



OERHRO 
731 

T35RDF 
PKTSSR 

CICLPI 



2901: CKLOOP 

TST 
SUB 
CMP 
BNE 
TST 
CMP 
BNE 

300t: CKLOOP 
330*: 



(LOOP IF SELECTED 



TRAP 
.WORD 
.UORD 
.WORD 

TRAP 



(R4)* 

R2.R4 

R4,R3 

265* 

(R3). 

R3.^40. 

265* 



C*ERMRD 

732 

T350TA 
EXPREC 

C»CLP1 



iBUMP TO NEXT ADDRESS 
I BACK TO RECORD SIZE 
,AT END OF RECORD YET 
iBR. IF MORE DATA TO CHECK 
I BUMP RECORD SIZE 
iDONE YET 

iBR. IF NOT DCNE YET (MORE READS) 
(LOOP IF SELECTED 

TRAP C»ClPI 



CL5 



066276 

4857 066S00 

4858 066S06 

4859 066S10 

4860 066314 
4861 

4862 
4863 
4864 
4865 
4866 
4867 
4868 
4869 
4870 
4871 
4872 
4873 



ENOSUB 

104403 

025727 002214 * 000017 CMP FATFLC^IS. 

BLO 999* 



103402 

004737 017074' 



9991: 



JSR 



PC.CKDROP 



SEQ 184 



i>>>>>>>>t>>> END SC©Tf S* >>>>>>>>>>>> 
L 10066: 

TRAP C«ESijB 
lis ERROR COUNT AT 25 
I BR. ir LESS THAN 25 
|TRt to drop THE UNIT 



TEST 7. SUBTEST 4 



VERIFIES THAT A TAPE -MOTION COMMAND (READ. WRITE. POSITION). 
ISSUED IMMEDIATATELY AFTER TERMINATION Of A REWIND WITH 
IMMEDIATE INTERRUPT COMMAND. IS "QUEUED" BY THE CONTROLLER AND 
THEN EXECUTES PROPERLY. 



4874 


066314 










BGNSUB 




!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 




066314 














T7.4: 






066314 


104402 












TRAP 


C*BSUB 


4875 


066316 


004737 


073044' 






JSR 


PC.T35REST 


iSET COMMAND PACKET 




4876 


066322 


004737 


073136' 






JSR 


PC.T35RT2 


1 SET UP OTHER COMMAND PACKET 




4877 


066326 


004737 


073200' 






JSR 


PC.T35RT5 


1 SET UP OTHER COMMAND PACKET 




4878 


066332 


012737 


176750 


067422' 




MOV 


•65000.. T35DLY 


jSET UP DELAY COUNTER 




4879 


066340 


004737 


015664' 




10*: 


JSR 


PC.SOFINIT 


lOO INITIALIZE ON CONTROLLER 




4880 


066344 


103426 








BCS 


20* 


tBR IF INIT WAS OK 




4861 


066346 










DELAY 


250 


1 DELAY ABOUT .25 SEC 






066346 


012727 


000250 










MOV 


•250. (PCI. 




066352 


000000 












.WORD 


0 




066354 


013727 


002116' 










MOV 


L*DLT.(PC). 




066360 


000000 












.WORD 


0 




066362 


005367 


177772 










DEC 


-6(PC) 






001375 












BNE 


. -4 




066370 


005367 


177756 










DEC 


22(PC) 




066374 


001367 












BNE 


. 20 


4882 


066376 


005337 


067422' 






DEC 


T55DLr 


{BUMP COUNTER 




4883 


066402 


001356 








BNE 


10* 


tSR. IF COUNTER NOT DONE 




4884 


066404 


005237 


002214' 






INC 


FATFLG 


1 ERROR COUNT 




4888 


066410 


010001 








MOV 


RO.Rl 


{CONTENTS OF TSSR REGISTER 




4889 


066412 










ERROf 


ERRNO . SFIERR . SFIMSG 


{FATAL ERROR TSSR WAS NOT OK 






066412 


104455 










TRAP 


C*ER0F 




066414 


001335 












.WORD 


733 




066416 


003642' 












.WORD 


SFIERR 




066420 


011724' 












WORD 


SFIMSG 


4890 


066422 


013737 


002174' 


067260' 


20*: 


MOV 


UNITN.T35DSW 


{SET UP UNIT (DR^VE) NUMBER 




4891 


066430 


012704 


067240' 






MOV 


#T35PACKET.R4 


{SUBROUTINE NEEDS PACKET ADDRESS 


4812 


066434 


004737 


010552' 






JSR 


PC.URTCHR 


{ISSUE WRITE CHARACTERISTICS 




4693 


06M40 


103407 








BCS 


23* 


iBR. IF COMMAND ISSUED OK 




4894 


066442 


005237 


002214' 






INC 


FATFLG 


1 ERROR COUNT 




48«6 


066446 


010001 








MOV 


RO.Rl 


{SAVE CONTENTS OF TSSR 




4699 


066450 










ERRHRO 


ERRNO . UR TMSG . SF IMSC 


{WRITE CHARACTERISTISC FAILED 






066450 


104456 










TRAP 


CSERHPD 




066452 


001336 












.WORD 


734 




066454 


005046' 












.WORD 


URTMSG 



4900 

4901 
4902 
4903 
4904 
4905 
4909 



4910 

4911 
4912 
4913 
4914 
4915 
4916 
4920 



4921 

4922 
4925 
4924 
4925 
4926 
4927 
4928 
4929 
4950 
4951 
4952 
4953 
4934 
4955 
4956 
4957 
495S 
4959 
4940 
4941 
4942 
4946 



4947 
494S 



0664S6 
066460 
066460 
066462 
066466 
066470 
066474 
066476 
066502 
066502 
066504 
066506 
066510 
066512 
066512 
066514 
066520 
066522 
066526 
066530 
066552 
066556 
066556 
066540 
066542 
066544 
066546 
066546 
066550 
066554 



011724- 
104406 

004757 010704* 
105411 

016501 000002 
010004 

005257 002214' 

104456 

001557 

070524- 

011756* 

104406 

015701 067270* 
010102 

052702 000002 

020102 

001406 

005257 002214' 

104456 
001540 
070220- 
01SS64' 

104406 

012703 000024 

013757 003116' 067372' 



25$; 



501; 



401: 



fE8 84 








CCA \ 


CKLOOP 






.WORD 


SFIMSG 




iLOOP IF SELECTED 








TRAP 


CtCLPl 


JSR 


PC. REWIND 


tCALL TAPE REWIND COMHAND 




BCS 


50 1 


iBR. IF NO PROBLEM 






MOV 


TSSR(R5).R1 


iCET TSSR CONTENTS 






MOV 


R0.R4 


iGET PACKET ADDRESS 






INC 


FATFLG 


1 ERROR COUNT 






ERRHRO 


ERR^X) . T55RUN . PK TSSR 


1 REWIND NOT ACCEPTED 












TRAP 


cierhrd 








.WORD 


755 








.WORD 


T55RWN 








.WORD 


PKTSSR 


CKLOOP 




iLOOP IF SELECTED 












TRAP 


CICLPl 


MOV 


T558FR»6.R1 


iPICK UP XSTO 






MOV 


R1.R2 


1 SET UP EXPECTED 






BIS 


«eiTl.R2 


iSET BOT BIT IN EXPECTED 




CMP 


R1.R2 


iDOES EXP - REC'D 






BEQ 


AOt 


iBR. IF EQUAL (OK) 






INC 


FATFLG 


1 ERROR COUNT 






ERRHRO 


ERRN0.TS580T.EXPREC 


iTAPC NOT AT BOT AFTER 


REWIND 










TRAP 


CIERHRO 








.WORD 


756 








.WORD 


TSSeOT 








.WORD 


EXPREC 


CKLOOP 




(LOOP IF SELECTED 












TRAP 


CICLPI 


NOV 


•20. .RS 


t STARTING RECORD SIZE 






NOV 


FREE.TSSUB 


{STARTING WRITE BUFFER 


ADDRESS 





WRITE OATA.CVC-l.ACK COMHAM) 



066562 


012757 


140005 


067370* 65«: 


NOV 


♦140005. T55PK 3 


{WRITE DATA.CVC-l.ACK COMMAND 




066570 


012704 


067570* 




•«v 


•T35PK5.R4 


iSET UP R4 WITH PACKET ADDRESS 




066574 


010500 






NOV 


R5.R0 


iSET PATTERN IN CORRECT REGISTER 


066576 


004757 


017514* 




JSR 


PC.FILLMEM 


iFILL MEMORY WITH RECORD SIZE 




066602 


010537 


067576' 




MOV 


R5.T55SZ 


(SET UP RECORD SIZE IN PACKET 




066606 


010465 


000000 




MOV 


R4.TS0B(R5) 


s ISSUE COMMAND 




066612 


004737 


016140' 




JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 




066616 


016501 


000002 




MOV 


TSSR(R5).R1 


«GET TSSR CONTENTS 




066622 


012702 


000200 




MOV 


•SSH,R2 


J SET UP EXPECTED 




066626 


020102 






CMP 


R1.R2 


(ARE THEY EQUAL 




066650 


001406 






BEQ 


801 


iBR. IF OK 




066652 


005237 


002214- 




INC 


FATFLG 


1 ERROR COUNT 












ERRHRO 


ERRNO. T55W0C. PKTSSR 


iTSSR INCORRECT AFTER WRITE DATA 


066656 


104456 








TRAP 


CtERHPD 


066640 


001541 










.WORD 


75-' 


066642 


071060' 










.WORD 


T55W0C 


066644 


011756' 










.WORD 


PKTSC* 


066646 






60* : 


CKLOOP 




jLOOf- IF SELECTED 




066646 


104406 










TRAP 


C»CLPl 



TEST 
TEST 



^^^^ khmi 



E15 



tVXM N1115 01-FEB M 16:55 



SEQ 186 



4949 

4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4956 
4959 
4960 
4961 
4962 
4966 



4967 

4966 
4969 
4970 
4971 
4972 
4973 
4974 
4975 
4979 



4980 

4962 
4983 
4964 
4965 
4966 
4990 



4991 

4992 
4993 
4994 

4995 
4996 
4997 
4996 
4999 



066650 
066656 
066662 

066672 
066676 
066700 
066702 
066706 
066706 
066710 
066712 
066714 
066716 
066716 
066720 
066722 
066726 
066730 
066734 
066736 
066742 
066744 
066750 
066750 
066752 
066754 
066756 
066760 
066760 
066762 
066766 
066770 
066774 
066776 
067000 
067004 
067004 
067006 
067010 
067012 
067014 
067014 
067016 
067022 



URITE DATA RE TRY . ACK . SUB • 1 COMMAND 



012737 111005 067370' 

010465 000000 

0O4737 016140' 

016501 000002 

012702 000200 
020102 
001406 

005237 002214' 

104456 
001342 
072125' 
015364' 

104406 

005723 

020327 000052 
001315 

004737 010704- 
103411 

016501 000002 
010004 

005237 002214* 

104456 
001343 
070524- 
011736' 

104406 

013701 067270- 
010102 

052702 000002 

020102 

001406 

005237 002214- 

104456 
001344 

070220- 
015364- 

104406 

012703 000024 
013737 003116' 067372- 



901; 



2301: 



240 (i 



MOV 


#111005. T35PK3 


iMRITE DATA RETRv.ACK.SUB'l 


COMMAND 


MOV 


R4.TS06(R5) 


i ISSUE COMMAND 




JSR 


PC.WAITF 


lUAIT FOR SSR TO SET 




MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 




MOV 


•SSR.R2 


1 SET UP EXPECTED 




CMP 


R1.R2 


lARE THEY EQUAL 




BEQ 


901 


tBR. IF OK 




I^4C 


FATFLG 


1 ERROR COUNT 




ERRHRD 


ERRN0.T35WRF .EXPREC 


iTSSR INCORRECT AFTE^) URITE 


DATA RETRT 



TRAP 
.UORO 
.UORU 
.WORD 



CKLOOP 




(LOOP IF SELECTED 






TRAP 


TST 


(R3)» 


tBUMP RECORD SIZE COUNTER 




CMP R3.#42. 


jAT 42 SIZE YET 


BNE 


651 


»8R. IF MORE RECORDS TO WRITE 


JSR 


PC. REWIND 


J CALL TAPE REWIND COMMAND 


BCS 


230t 


tBR. IF NO PROBLEM 


MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


MOV 


R0.R4 


iGET PACKET ADDRESS 


INC 


FATFLG 


i ERROR COUNT 


ERRHRO 


ERRNO. T55RUN.PKTSSR 


(REWIND NOT ACCEPTED 



CtER^O 
736 

T3SWflF 
EXPREC 

CiCLPl 



TRAP 
.WORD 



CtERHRO 
739 







.WORD 


TS5RWN 






.WORD 


PKTSSR 


CKLOOP 




J LOOP IF SELECTED 








TRAP 


C«CLP1 


MOV 


T35eFR»6.Rl 


iPICK UP XSTO 




MOV 


R1.R2 


sSET UP EXPECTED 




BIS 


«6IT1.R2 


tSET BOT BIT IN EXPECTED 




CMP 


R1.R2 


iDOES EXP - REC-D 




BEQ 


2401 


<BR. IF EQUAL (OK) 




INC 


FATFLG 


1 ERROR COUNT 




ERRHRD 


ERRNO . T3560T . EXPREC 


;TAPE NOT AT BOT AFTER REWIND 






TRAP 


CtER»«D 






.WORD 


740 






.WORD 


T3580T 






.WORD 


EXPREC 


CKLOOP 




(LOOP IF SELECTED 








TRAP 


CtCLPl 


MOV 


•20. .R3 


{STARTING RECORD SIZE 




MOV 


FREE.T35RB 


(STARTING READ BUFFER ADDRESS 





READ DATA.ACK COMMAND 



F15 

TEST 1 HARDUARE TEST 1 8 TEST MACRO MlllS 01 FEB S4 16:55 
TEST 7: EXTENOCD MODE TEATijftES 



5000 
















5001 


067030 


01?737 


100001 


067370* 


tx C • 

265* : 


MOV 


X4AAAA4 TVKAt^V 

^lOOOOl . T 55PK3 


5002 


067036 


012704 


067370' 






MOV 


♦T35PK3 ♦H4 


5003 


067042 


010337 


067376' 






MOV 


A V T VC O Y 

R3, T35SZ 


5004 


067046 


010465 


000000 






MOV 


Ax T^AB^nC 

R4 , TSDBCR5 > 


5005 


067052 


004737 


016140' 






JSR 


PC , WAITF 


5006 


067056 


016501 


000002 






MOV 


TS5RCK5i,Hl 


5007 


067062 


012702 


000200 






MOV 


vSSR tK2 


5008 


067066 


A'W^ • AO 

020102 










H1,H2 


5009 


067070 


001406 








OCA 


2501 


5010 


067072 


AAC V *V 

005237 


AAft • A « 

002214' 






INC 


r A Ir Lu 


5014 


067076 










ERRHRD 


cKHNu • T 35K0r , PK T b 5K 




067076 


104436 














067100 


001345 














A^ ^ • At 

067102 


AX 7C « 1 > 

067512 














A^ Y « A^ 

067104 


A« « ^VX « 

011736' 












5015 


A^ ? • A^ 

067IOO 








260I : 


CKLOUf 






A^ ^« Atf 

067106 


• AX X AX 

104406 












5016 


A^ ^ 4 • A 

067110 


A 4 V7A'3 

01o70d 


AAV 4 4 X f 

003 1 16 






nuv 




5017 


067114 


A* AVAX 

010504 








nov 


Ho « H4 


5018 


A^ ? • • ^ 

067116 


162 704 


AAAAtX 

000024 






CI B 

sin 


#20. ,K4 


5019 


A^ T« 

067122 


060204 






2051 : 


Ann 
ADD 


K2.H4 




067124 


000505 










HO 




AJ£ Y • «W 

067126 


AAV 

021403 










f DA ^ D V 
VK4 ) ,K3 


CA^*% 

5022 


067150 


0014 10 










2WI 




067132 


011401 








MOV 


f Da 1 D 4 
IK4 > ,Kl 




AX ^ « V A 

067154 


A « AVAt 

010502 








MOV 


D V DO 

H3»R2 


5025 


067136 


00S257 


002214' 






INC 




5029 


067142 










ERRHRD 


cRRNOt T35DTA,cXPRcC 




Af ^ « A A 

067142 


104456 














AX ^« A ^ 

067144 


001346 














AX 7 « AX 

067146 


072205' 














AX ? • C A 

067150 


015364' 














AX 7 • C t 

067152 








290f: 


CKLOOP 






AX ^ 4 C t 

067152 


104406 












3031 


AX Y 4 K X 

067154 


005 '24 








TC T 

TST 


^ ox \ . 

CR4 




067156 


4 X AAAX 

160204 








CI B 

SUB 


DO DX 

R2iR4 




AX *9 4 X A 

067100 


000303 








SWAB 


DV 

R3 




06716c 


A^AX A V 

020403 








CnP 


DA DV 

R4 ,R5 




AX *V 4 XX 

06 f 164 


AA« vex 

001556 








dNc 






XX 

06 r 166 


005723 








TC T 

T5T 


/ DV ^ » 
VR3 


C/W T 

/ 


AX 7 « 7 A 

067170 


A'\A V t^ 

020327 


AAAAC A 

000050 






CMP 


D V AX A 

R3 V #40, 




067174 


AA« V « C 

001315 








BNE 


'^X C 

2651 




AA 71 7X 

06 71 76 








SOOf : 


CKLOOP 






/^.7 « 'YX 

067176 


• AX X AX 

104406 












DU40 


AX 70AA 

06/200 










END SUB 






067200 
















AX 7^AA 

06r200 


« AX X A V 

104403 














AX 7^AA 

06f 


023727 


002214' 


000017 




CMP 


r Air Lb. «13 . 
















999t 


5043 


067212 


004737 


017074' 






JSR 


PC.CKOROP 


5044 


067216 








9991: 






5045 










t 






5046 










1 






5047 










1 






5048 


067216 


004737 


016350' 






JSR 


PC.TSTLOOP 


5049 


06722^ 


103002 








BCC 


163 » 



SEO V87 



iREAO DATA.ACK COMMAND 

(SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

(ISSUE COMMAND 

I WAIT rOR SSR TO SET 

»GET TSSR CONTENTS 

; SET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IF OK 

(ERROR COUNT 

(TSSR INCORRECT AFTER READ DATA 

TRAP ClER»«0 
.WORD 741 
.WORD T35R0F 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP C»CLP1 

iGET BUFFER ADDRESS 

iGET RECORD SIZE 

(POINT BACK TO 1ST RECORD 

(POINT TO 1ST LOC IN BUFFER 

(SWAP BYTES SWB-l ETC. 

(DATA WRITTEN <• READ 

(BR. IF DATA OK CGOOO) 

(PICK UP BAD DATA 

(SET UP EXPECTED 

(ERROR COUNT 

(DATA IN BUFFER NOT CORRECT 

TRAP CIERHRO 
.MORO 742 
.UORO T350TA 
.WORD FXPREC 

(LOOP IF SELECTED 

TRAP CJCLPl 

(BUMP TO NEXT ADDRESS 
(BACK TO RECORD SIZE 
(PUT R3 BACK INTO SHAPE 
(AT END OF RECORD YET 
(BR. IF MORE DATA TO CHECK 
(BUMP RECORD SIZE 
(DONE YET 

(BR. IF NOT DONE YET (MORE READS) 
(LOOP IF SELECTED 

TRAP CfCLPl 
{>>>>>>>>>>>> END SUBTEST >>>»>>>••>>■>> 
L10067: 

TRAP C«ESUB 
(IS ERROR COUNT AT 25 
(BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



(00 WE NEED TO ITERATE TEST 
(BR. IF NO LOOP REQUIRED 



TEST 
TEST 



t HAROUARE TEST 
7: EXTENOCO MODE 



^eStu^Is 



Gi5 



MACRO M1115 01 FEB M 18:55 



5050 


067224 


000157 065514 




IMA 




5051 


067250 
067230 
06^232 


104452 

005770 


165* : 


C w T T 

EXIT 


T r* T 

TST 


5052 












5053 


















i LOCAL 


STORAGE 


C~r\0 TUTC TCCT 

r UK 1 nib 1 1 b 1 


5055 






1 






5057 


067254 






.BLKB 


lO- < . - 1 bV^& f> 


30D^ 






T35PACKET : 






A^^IAA 

06 






.UORD 


100004 


30ol 


067242 






.UORD 


T 'S^naTA 
1 o3UH 1 H 


3002 




uuww 




.UORD 


U 


3000 


06 f c^6 






.WORD 


lO. 




OCA 

06 » 2d0 




1 J^VA 1 A 






3003 


067«D0 


Oo fdO c 




'.UORD 


T35BFR 




A^ 

Oo 






.WORD 


0 


DOo ' 








.WORD 


20. 




AJL79C^ 
00 7^30 






.WORD 


0 




AiL70JLA 
U0 720U 


UUUUUv 


T X VtCU • 


.WORD 


0 




uo lend 




1 J3Dr K ; 


.BLKU 


25. 


jM 1 1 






1 












.UDTTC 
IMKI It 


SUBSYSTEM MEMORt COMMAI 


3U > O 






t 








U6 7 






.BLKB 


10-<. -TSV2e7> 


3V f » 


06 7330 




1 J3V^c ; 








A& "7 VCA 
Oo 73DO 






.WORD 


100006 


3W f *» 


A^7 VC*^ 

06 7 332 


Oo f #00 




.UORD 


T558F2 




AiL7 

Oo 7 534 


oooooo 




.WORD 


0 




Oo 7330 


OOOOOb 




.UORD 


6, 














300# 


A£ 7S^A 

0673oO 






.BLKB 


l0-<. -TSV2£7> 


30o0 


A^ 7» ^A 

067370 












A£7 V7A 

067370 


100005 




.UORD 


100005 




UO H i£ 




T35RB: 








Uo 1 


AAT 1 1 £ 1 
003110 


TSSUB: 


.UC^D 


FPFE 




UO f 3 


OOOOOO 




.UORD 


0 




UO f 3 «0 


OOOOOO 


T55SZ: 


.UORD 


0 










.EVEN 




5095 






1 






5094 






1 






5095 












5096 


067400 




T558F2: 






5097 


067400 


OlO 


T5S8S0: 


.BYTE 


10 


5098 


067401 


cOO 


T556S1: 


.BYTE 


200 


5099 


067402 




T55S2: 


.UORD 


0 


5100 067404 


OOOOOO 


T55S5: 


.UORD 


0 


5101 






1 






5102 






t 






5105 








.EVEN 




5104 






J TAPE MOTION PACKET COMMAND V 


5105 












5106 


067406 


100205 


T55flN: 


.UORD 


100205 


5107 


067410 


100605 


T35U0R: 


.UORD 


100605 


5106 


067412 


102205 


T55C0N: 


.UORD 


102205 


5109 067414 


177777 




.UORD 


177777 


5110 













SEQ 166 



jExECUTE AGAIN 
lALL DONE TMTS 1EST 

TRAP C;^-XIT 
.UORD L10065 . 



iCOMMANO PACKET FOR TEST 

tURITE CHARACTERISTICS COMMAND. WITm , ACK 
I ADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 
; CHARACTER 1ST ICS DATA BLOCK 
t ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 

I SELECT DRIVE 0 
iMESSAGE BUFFER 



lURITE SUB SrS MEM COMMAND. AND ACK 
{ADDRESS OF SELECT BLvCK DATA 

I SIZE OF DATA PACKET 

{REREAD COmANO. AND ACK 
{ADDRESS OF WRITE BUFFER 
{SIZE OF BUFFER (EXTENT) 



{BSELO AREA 
:BSEL1 AREA 
jSEL 2 AREA 
{DATA AREA 



(REREAD DATA (NEXT) 
{REREAD DATA RETR> 
{URITE CONTINOUS 
{END OF DATA 



TEST 
TEST 



Hib 



SEQ 189 



5111 
5112 
5113 
5114 
5115 
5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 
5124 
512S 
5126 
5127 
5128 
5129 
5130 
5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 



067416 
067420 
067422 



000000 
000000 
000000 



T35CNT 
T35CNU 
T350LY 



t ♦ 



.WORD 0 
.WORD 0 
.WORD 0 



iTAPF TIMER COUNTER STORAGE ARE<> 
J TAPE TIMER COUNTER STORAGE AREA 
lOELAY COUNTER 



I LOCAL TEXT MESSAGES FOR TEST 



i - 



067424 


124 


141 


160 


T35UNG: 


.ASCIZ 


067512 


124 


123 


123 


T35W)F! 


.ASCIZ 


067561 


122 


105 


122 


T35RRF: 


.ASCIZ 


067656 


120 


117 


123 


T35SC: 


.ASCIZ 


067740 


122 


111 


102 


T35LGR: 


.ASCIZ 


070010 


124 


123 


123 


T35U0F: .ASCIZ 


070065 


111 


154 


154 


T5SL0Q: 


.ASCIZ 


070146 


124 


123 


123 


T35UDE: .ASCIZ 


070220 


124 


141 


160 


TSSBOTi 


.ASCIZ 


070313 


127 


122 


111 


T35T1M! 


.ASCIZ 


070370 


122 


105 


122 


T35C0T 


.ASCIZ 


070447 


124 


123 


123 


T35TH: 


.ASCIZ 


070524 


122 


145 


167 


iSSRUN: 


.ASCIZ 


070573 


122 


101 


115 


T35RNC 


.ASCIZ 


070646 


124 


123 


123 


T35AM3 


.ASCIZ 


070715 


104 


162 


151 


T350FL 


.ASCIZ 


070770 


124 


123 


123 


T35UI)0. 


.ASCIZ 


071060 


124 


123 


123 


T3SM)C 


.ASCIZ 


071133 


103 


126 


103 


T3SVCK 


.ASCIZ 


071206 


124 


123 


102 


T35BA: 


.ASCIZ 


071261 


127 


122 


111 


T35USS 


i .ASCIZ 


071350 


122 


145 


141 


T3SL0N 


.ASCIZ 


071432 


122 


145 


141 


T35L0P 


.ASCIZ 


071514 


122 


145 


163 


T35P8P 


.ASCIZ 


071602 


122 


145 


141 


T35TRL 


: .ASCIZ 


071670 


127 


122 


111 


T35ICF 


• .ASCIZ 


071766 


124 


123 


123 


T35SCF 


.ASCIZ 


072043 


124 


123 


123 


T35TSA 


! .ASCIZ 


072125 


124 


123 


123 


T35URF 


; .ASCIZ 


072205 


104 


141 


164 


T350TA 


.ASCIZ 


072302 


124 


123 


123 


T35SSR 


.ASCIZ 


0V2363 


115 


117 


124 


T35ri0T 


: .ASCIZ 


072461 


111 


156 


164 


T35INT 


• .ASCIZ 


072552 


117 


120 


115 


T350PM 


.ASCIZ 


072650 


124 


123 


123 


T35RUE 


. .ASCIZ 


072736 


116 


157 


040 


T3SNIN 


: .ASCIZ 


073013 


105 


170 


164 


TST35Z0: 












.EVEN 



'Tap* Position Incorroct Aftor REREAD Rravlou* (OPP-1)' 
'TSSR Ineorroct Aftor READ DATA Comnand' 

'REREAD Provious (Spaco Ravaraa. Raad ForMord) Command Failed' 
'POSITION (Spaca Cotnmand) Fa! lad, TSSR Not Corraet 
'RIB NOT SET AFTER READ REVERSE INTO BOT' 
'TSSR Not Corraet Aftar Illagal Moda BIta Sat' 
'Illaoal noda Bits. Failad To Sat ILC Bit In XSTO' 
' TSSR Net Corraet Aftar URITE DATA Command' 
'Tapa Net At BOT Aftar REWIND Command (BOT Not Sat In xSTO)' 
'WRITE DATA RETRY" S Eraea Tapa Not Long Enough' 
'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT* 
'TSSR Net Correct Aftar REREAD COTtlANO Rajaet' 
'Rewind (POSITION) Command Net Aceaptad' 
•RAM Error, Correct Data Pattern Not In Ram' 
'TSSR Init. Failad Aftar REREAD COMMAND' 
'Drive 7 Select Failed To Set "OTL" In TSSR' 
'TSSR rtot Correct After REREAD DATA Cammand. SUB Bit Sat- 
' TSSR Net Correct After REREAD DATA CoMnand' 
'CVC Set. Didn"t Reset VCK In Meeeaoa Buffer' 
TSBA Net Correct After REREAD DATA Cowiand' 
'WRITE SUBSYSTEM MEMORY Commwfd Net Accepted (RAM Read)' 
'Reading Long Record Failed To Set RLL Bit In XSTO' 
'Reading Long Record Failed To Set RLS Bit In XSTO' 
'Residual Byte Count Incorrect After Short Record Read' 
'Reading Long Record Failed To Give Tape Status Alert' 
'WRITE DATA RETRY. At First Record. Failed To Set RIB Bit XSTS' 
' TSSR Not Correct After SPACE RECORDS CoMKand' 
'TSSR Not Correct After WRITE DATA RETRY. Into BOT' 
' TSSR Not Correct After WRITE DATA RETRY CoMnand' 
'Data Compare Error. Data Raad From Tape Not Eoual To Written' 
'TSSR Incorrect After WRITE MISCELLANEOUS Co— >anu' 
'MOT Bit (XSTO) Not Set During Rewind (Extended Features Mod*)' 
'Interrupt Received After REWIND Command (IE Bit Not Set)' 
'OPM Bit (XST2) Not Sot During Rewind (Extended Features Mode) 
' TSSR Incorrect After Extended Features REWIND Command' 
'No Interrupt Detected After REWIND IMMEDIATE' 
.ASCIZ 'Extended Mode Functions' 



i ♦ 

{ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

I WRITE SUBSYSTEM MEMORY COMMAND 

t 

i - 



073044 



T35REST; 



TEST 
TEST 



HAROUARE TEST 1-d TEST MACRO 11113 
EXTENDED MODE FEATURES 



115 



01-FE8 S4 18:55 



SEO 190 



5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5)82 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
b206 
5207 



5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
52 IS 
5219 
5220 
5221 
5222 



073044 

073050 
075054 
073060 
073064 
073066 
073072 
073076 
073100 
073104 
073106 
073112 
073116 
073124 
073126 
073132 
073134 



073136 
073136 
075142 
073146 
073JL52 
073156 
073160 
07M64 
073166 
073172 
073174 
073176 
073200 
073200 
073204 
073210 
073212 
073214 
073216 
073220 
073222 
073222 
073222 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



067240- 
100004 

067250- 

000012 
067262* 

000024 

oooooo 

000030 

177777 067262' 64$: 
OOOOOO 



SAVREG 

MOV ♦T55PACKET.R1 

MOV #100004. (Rl). 

MOV #T55DATA.(H1)» 

CLR (Rl)» 

MOV «10.,(R1)» 

MOV #T358FR,(R1)» 

CLR (Rl)» 

MOV •20., (RD* 

CLR (Rl)» 

MOV tO.CRl) 

MOV »24..R2 

MOV ♦177777. T55BFRCR2) 

TST -CR2) 



iSAVE THE REGISTERS 

iSTART OF THE PACKET 

jWRITE S'JBSrSTEM MEM. WITH ACk. 

lAOORESS or CMARAISTICS DATA BLOCK 

t EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BtTES 

t ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 

t SELECT DRIVE ZERO 
tNU(«ER OF LOCATIONS TO BE CLEARED 
iALL ONES TO MESSAGE BUFFER 
jNEXT LOCATION 



T35RT2: 



067550- 

100006 

067400' 

000006 

067400' 



067370' 



T35RT3: 



CMP 


•0,R2 


|AT END OF LOlJP VET 


BNE 


64t 


iKEEP GOING IMTIL DONE 


RTS 


PC 


1 RE TURN 


SAVREG 




{SAVE THE REGISTERS 


MOV 


•T35PK2.R1 


1 START OF THE PACKET 


MOV 


•100006. (RD* 


lURITE SUBSYSTEM MEM. WITH ACK. 


nuv 






CLR 


(RD* 


t EX TENDED ADDRESS 


MOV 


•6. .(Rl)» 


iSIZE OF DATA BLOCK IN BYTES 


CLR 


(RD* 




MOV 


•T358F2.RI 


t POINT TO DATA SEL AREA 


CLR 


(Rl)» 




CLR 


(Rl) 




RTS 


PC 


1 RE TURN 


SAVREG 




iSAVE REGISTERS 


MOV 


•T35PK3.R1 


tSET UP POINTER ADDRESS 


CLR 


(Rl)» 


i COMMAND SPACE 


CLR 


(Rl)» 


lAOORESS OF DATA BLOCK 


CLR 


(RD* 


{EXTENDED ADDRESS 


CLR 


(Rl) 


tSIZE OF DATA TRANSFER BLOCK 


RTS 


PC 


1 RE TURN 


ENOTST 










L 10063: 






TRAP 


.SBTTL 


TEST 8: RECORD 


BUFFERING 



C»ETST 



THIS TEST VERIFIES THAT RECORD BUFFERING. USED FOR URITE DATA 
AND READ NEXT COMMANDS. OPERATES PROPERLY AND IS PROPERLY 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
M7455 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE 
CAS CONTROLLED BY THE DIP SWITCH ON THE MODULE). IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
BEEN FNABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 
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Ji5 



5223 

5224 

5225 

5226 

5227 

5228 

5229 

5250 

5231 

5232 

5233 

5234 

5235 

5236 

5237 

5236 

5239 

5240 

5241 

5242 

5243 

5244 

5245 

5246 

5247 

5248 

5249 

5250 

5251 

5252 

5253 

5254 

5255 

5256 

5257 

5258 

5259 

5260 

5261 

5262 

5263 

5264 

5265 

5266 073224 
073224 

5267 073224 

5268 073232 

5273 073236 

5274 073242 

5275 073246 

5276 0732S4 
5277 

5278 
5279 
5280 
5281 
5282 



012737 
004737 
012700 
004737 
012737 
005037 



006166' 

017166' 

100607- 

016402' 

000005 

075616' 



002172' 



002210' 



SEQ 191 



VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
PROPERLY AT LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 
PERFORMED : 

1. THE TAPE IS REWOUND, 

2. BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMAND). 

3. AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT. 

4. THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
TAPE TO REPOSITION AND COME TO REST. 

5. A WRITE DATA COMMAND. WITH A BYTE COUNT LESS THAN 3.5K. 
IS ISSUED. AND THE PROGRAM COUNTS. IN A WAIT LOOP. THE 
TIME IT TAKES TO RECEIVE COMMAND TERMINATION. THIS 
SHOULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS 
DISABLED. 

6. BUFFERING IS ENABLED. 

7. THE WRITE DATA COMMAND IS AGAIN ISSUED. WITH THE SAME 
BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
COMPLETION IS AGAIN MEASURED. 

8. THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND 
BUFFERED CASES ARE COMPARED. IT IS VERIFIED THAT THE 
TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER 
THAN THAT MEASURED FOR THE BUFFERED CASE. 

9. THE PREVIOUS STEPS. EXCEPT FOR REWINDING AND WRITING A 
RECORD OFF BOT, ARE REPEATED FOR VARIOUS BYTE COUNTS IN 
THE RANGE 20 THROUGH 3.5K. 



;THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 



BGNTST 

MOV 
JSR 
MOV 
JSR 
MOV 
CLR 



CEPRTl.EPRTSW 

PC.KTOFF 

#TST36ID,R0 

PC.TSTSETUP 

♦5.L00PCNT 

T36CNT 



T8:: 

j PRIMARY ERROR MESSAGE 
8 TURN OFF KTll 

J ASCII MESSAGE TO IDENTIFY TEST 
J DO INITIAL TEST SETUP 
; PERFORM 5 ITERATIONS 
(CLEAR TAPE RECORD COUNTER 



TEST 8, SUBTEST 1 



VERIFIES THAT A WRITE DATA RETRY COMMAND ISSL€D <JHILE 



<i5 



T£Sr 1 
TEST 8: 

52d5 

5285 
5286 
5287 
5288 
5289 



HARDWARE TEST 1 8 TEST MACRO M1113 
RECORD BUFFERING 
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SEQ 192 



jTHE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
J TERMINATION, WITH THE NON -EXECUTABLE FUNCTION CNEF) 
I ERROR BIT SET. 



s 

t - 



5290 


075; 60 








T36L00P 






5291 


073;>60 










BGNSUB 






0731*60 
















073c60 


104402 












5292 


07326? 


004737 


100630' 






JSR 


PC,T36REST 


5295 


073266 


004757 


100722' 






JSR 


PC.T36RT2 


5294 


073272 


00^737 


100764' 






JSR 


PC.T56RT3 


5295 


073276 


012737 


T7*75C 


075622' 




MOV 


•65000. .T360LY 


5296 


073304 


005037 


075616' 






CLR 


T36CNT 


5297 


073310 


004757 


015664' 




lot: 


JSR 


PC.SOFINIT 


5296 


073314 


103426 








BCS 


20 » 


5299 


073316 










DELAY 


250 




073316 


012727 


000250 












073322 


000000 














073224 


013727 


002116' 












073330 


000000 














073332 


005367 


177772 












073336 


001575 














073340 


005367 


177756 












073344 


001367 












5300 


073346 


005337 


075622' 






DEC 


T360LY 


5301 


073552 


001356 








BNE 


lot 


5302 


073354 


005237 


002214' 






INC 


FATFLG 


5306 


075360 


010001 








NOV 


RO.Rl 


5307 


073362 










ERROF 


ERRNQ , SFIERR . SF IMSG 




073362 


104455 














073364 


001441 














073366 


003642' 














073370 


011724' 












5308 


073372 


013737 


002174 • 


075460' 


20t: 


MOV 


UNITN,T360SU 


5309 


073400 


012704 


075440' 






MOV 


•TS6PACKET.R4 


5310 


073404 


004737 


010552' 






JSR 


PC.WRTCHR 


5311 


073410 


103407 








BCS 


25 1 


5312 


073412 


005237 


002214 ■ 






INC 


FATFLG 


5316 


073416 


010001 








MOV 


RO.Rl 


5317 


073420 










ERRHRD 


ERRNQ , URTMSG . SF IMSG 




073420 


104456 














073422 


001442 














073424 


005046' 














073426 


011724' 












5318 


073430 








251: 


CKLOOP 






073430 


104406 












5319 


073432 


004737 


010704' 






JSR 


PC. REWIND 


5320 


073436 


103407 








BCS 


301 


5321 


073440 


010004 








MOV 


R0.R4 


5322 


073442 


005237 


002214' 






INC 


FATFLG 


5326 


073446 










ERRHRD 


ERRNO. T36RWN.PKTSSR 




073446 


104456 














073450 


001443 














073452 


077031' 













CtBSUB 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T8,l: 

TRAP 

J SET COMMAND PACKET 
t&ET .P OTHER COMMAND PACKET 
iSt^ m- OTHER COMMAND PACKET 
iSET DELAY COUNTER 
I CLEM) COUNTER 

tOO INITIALIZE ON CONTROLLER 
tW IF INIT MAS OK 
i DELAY ABOUT .25 SEC 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 

iBur«> COUNTER 
tBR. IF COUNTER NOT DONE 

(ERROR COUNT 
: CONTENTS OF TSSR REGISTER 
(FATAL ERROR TSSR WAS NOT OK 

TRAP 

.UORO 

.UORO 

.UORO 

: SET UP DRIVE NUMBER 
(SUBROUTINE NEEDS PACKET ADDRESS 
(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 

(ERROR COUNT 
(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 

.WORD 

.WORD 

.WORD 

(LOOP IF SELECTED 

TRAP 

(CALL TAPE REWIND COMMAND 
(BR. IF NO PROBLEM 
(SET UP REWIND PACKET ADDRESS 

(ERROR COUNT 
(REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 



•250.(PC). 
0 

LtDLT.CPC). 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 



CtERDF 
801 

SFIERR 
SFIMSG 



CtERHRD 
802 
WRTMSG 
SFIMSG 

CtCLPl 



CtERHPO 
803 

T36RWN 



Li5 
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075454 


011756' 










5527 


075456 








30S : 


CKLOOP 




075456 


104406 










5328 


075460 


015701 


075470' 






tlOV 


5S29 


073464 


010102 








nov 


5330 


073466 


052702 


000002 






BIS 


5331 


073472 


020102 








CMP 


5332 


073474 


001406 








BEQ 


5333 


073476 


005257 


002214' 






INC 


5357 


073502 










ERRHRO 




073502 


104456 












073504 


001444 












073506 


076525' 












075510 


015564' 










5358 


07^512 








40t: 


CKLOOP 




075512 


104406 










5539 


075514 


015757 


002174' 


075460' 




nov 


5540 


075522 


052757 


000030 


075460' 




BIS 


5541 


075550 


012704 


075440' 






MOV 


5542 


075554 


004757 


010552' 






JSR 


5545 


075540 


105407 








BCS 


5544 


075542 


005257 


002214' 






INC 


5548 


075546 


010001 








nov 


5349 


075550 










ERRHRO 




075550 


104456 












075552 


001445 












075554 


005046' 












075556 


011724' 










5550 


075560 








501; 


CKLOOP 




075560 


104406 










5551 


075562 


012757 


005720 


075576' 




nov 


5352 


075570 


013737 


003116' 


075572' 




nov 


5553 


075576 


012737 


140005 


075570' 




nov 


5354 


073604 


012704 


075570' 






nov 


5555 


075610 


010465 


000000 






nov 


5556 


075614 


004757 


016140' 






jSR 


5557 


075620 


016501 


000002 






nov 


5558 


075624 


012702 


000200 






nov 


5359 


075630 


020102 








cnp 


5560 


073652 


001406 








BEQ 


5361 


075654 


005237 


002214' 






INC 


5565 


073640 










ERRHRO 




075640 


104456 












075642 


001446 












075644 


005103' 












075646 


011736' 










5366 


075650 








60*: 


CKLOOP 




075650 


104406 










5567 


073652 


012757 


000005 


075622' 




nov 


5368 


075660 








70t: 


DELAY 




075660 


012727 


000001 










073664 


000000 












073666 


015727 


002116' 










073672 


000000 












075674 


005367 


177772 










075700 


001375 












075702 


005567 


177756 









T36BFR.6.RI 

R1,R2 

«eiTl.R2 

R1.R2 

40* 

FATFLG 

ERRNO . T56B0T , EXPREC 



UNITN.T560SU 

«BIT5!BIT4.T56DSU 

«T56PACKET.R4 

PC.URTCHR 

SOI 

FATFLG 
RO.Rl 

ERRNO . URTnSG . SF inSG 



«2000..T56SZ 

FREE.T56UB 

4140005, T56PK5 

«T56PK5.R4 

R4.TS0B(R5) 

PC.UAITF 

TSSR(R5).R1 

*SSR,R2 

R1.R2 

60» 

FATFLG 

ERRNO . URTERR , PK TSSR 



OO5..T360LY 

1 



SEQ 191 



.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CICLPl 

I PICK UP XSTO 

I SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

I DOES EXP • REC'O 

iBR. IF EQUAL (OK) 

I ERROR COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP CtERHRD 
.WORD 604 
.WORD T36B0T 
.WORD EXPREC 

»LO0P IF SELECTED 

TRAP CICLPl 

I SET UP DRIVE NUMBER 

i 25 -APR -85 REV B - TURN ON THE BUFFERING 

I SUBROUTINE NEEDS PACKET ADDRESS 

» ISSUE WRITE CHARACTERISTICS 

(BR. IF COnnAND ISSUED OK 
i ERROR COUNT 

iSAVE CONTENTS OF TSSR 

tWRITE CHARACTERISTTSC FAILED 

TRAP CtERHRD 
.WORD 805 
.WORD WRTMSG 
.WORD SFIMSG 

:LOOP IF SELECTED 

TRAP CICLPl 

:SET UP RECORD SIZE 

; ADDRESS OF WRITE BUFFER 

; WRITE DATA.ACK,CVC-1 COMHAND 

:SET UP R4 WITH PACKFT ADDRESS 

5 ISSUE COHMAND 

I WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IF OK 

(ERROR COUNT 

:TSSR INCORRECT AFTER READ DATA 

TRAP CIERHRD 
.WORD 806 
.WORD WRTERR 
.WORD PKTSSR 

5 LOOP IF SELECTED 

TRAP CICLPl 
125-APR 85 REV B DELAY FOR TAPE TO STOP 
J25-APR-83 REV B DELAY ROUTINE CALL 

nov ^LCPO* 
.WORD 0 

MOV LIDLT. (PC)* 
.WORD 0 
DEC -6(PC: 
BNE . -4 

DEC -22(PC'» 



6: REcS^o'^lui^^lil^ 



M15 
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5369 
5S70 
5571 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5579 
5390 
5581 



5302 
5363 
53M 
5385 
5386 
5367 
5391 



5392 

5393 
5394 
5395 
5596 
5597 
5598 
5599 
5405 
5404 



5405 

5406 
5407 
5406 
5409 
5410 
5411 
5412 



073706 
0-'37lO 
073714 
073716 
073724 
075732 
073736 
073742 
073750 
073754 
073760 
075764 
073766 
073772 
073772 
075776 
074000 
074004 
074006 
074012 
074014 
074020 
074022 
074026 
074030 
074034 
074036 
074040 
074044 
074044 
074046 
074050 
074052 
074054 
074054 
074056 
074064 

074072 
074076 
074102 
074104 
074110 
074112 
074112 
074114 
074116 
074120 
074122 
074122 
074124 
074132 
074140 
074144 
074150 
074156 
074162 



001567 
005337 
001361 
012737 
012737 
012704 
005037 
012737 
010465 
016501 
052701 
001021 
005257 

012727 
000000 
015727 
000000 
005567 
001575 
005567 
001567 
005557 
001552 
012702 
020102 
001406 
005257 

104456 
001447 

076455' 
011756' 



075622- 

006642 075576' 
140005 075570' 
075570' 
075616' 

001750 075622' 
000000 
000002 
000200 

075616' 

000001 

002116' 

177772 

177756 

075622' 

000200 

002214' 



60t; 



90«: 



loot: 



104406 

015757 002174' 075460' 
052757 000010 075460' 

012704 075440' 
004737 010552' 
103407 

005237 002214* 
010001 

104456 
001450 
005046' 
011724' 

not: 

104406 

012737 006642 075576' 
012737 140005 075570' 
012704 075570' 
005057 075620' 
012757 001750 075622' 
010465 000000 

016501 000002 120 t: 



DEC 
BNE 
MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
BIT 
BNE 
INC 
DELAY 



DEC 
BNE 
MOV 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 

MOV 
BIS 

MOV 
JSR 
BCS 
INC 
MOV 

ERRHRD 



CKLOOP 

MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 



T36DLY 
70 » 

♦5490. .T36SZ 
•140005. T36PK 3 
♦T36PK3,R4 
T36CNT 

♦1000. .T36DLY 

R4.TSDB(R5) 

TSSR(R5).R1 

•SSR.Rl 

90t 

T56CNT 
1 



T56DLY 
80t 

♦SSR.R2 
R1.R2 

loot 

FATFLG 

ERRNG.T36UDE.PKTSSR 



UNITN. T36DSU 
«BIT3.T360SU 

•T56PACKET.R4 
PC.URTCHR 

not 

FATFLG 
RO.Rl 

ERRNO . WRTMSG . SF IMSG 



•5490..T36SZ 
♦140005. T36PK 3 
*T56PK5.R4 
T56CNU 

♦1000. , T56DLY 

R4,TSDB(R5) 

TSSR(R5).R1 



SEQ 194 



BNE 20 

jBUMP COUNTER DOWN 

tBU. If MORE DELAY TO GO 

.SET SIZE OF TRANSFER 

iWRITE DATA.ACK.CVC-1 COMMAND 

I SET UP R4 yiTH PACKET ADDRESS 

1 CLEAR COUNTER 

sSET DROP DEAD COUNTER VALUE 

J ISSUE COMMAND 

iGET TSSR CONTENTS 

t CHECK FOR SSR SET 

:BR. IF SSR IS SET 

I BUMP CYCLE COUNTER 

>CUT NUMBER OF LOOPS DOWN 

MOV ♦l.CPO* 
.WORD 0 

MOV LtOLY.(PC)' 

.UORD 0 

DEC 6(PC) 

BNE .-4 

DEC 22(PC) 

BNE 20 

iBUMP DROP DEAD COUNTER 

jBR. IF THERE IS STILL TIME 

sSET UP EXPECTED 

I ARE THEY EQUAL 

sBR. IF OK 

i ERROR COUNT 

:TSSR INCORRECT AFTER READ DATA 

TRAP CtERHRD 
.WORD 807 
.WORD T56U0E 
.UORD PKTSSR 

:L00P IF SELECTED 

TRAP CtCLPl 

: SET UP DRIVE NUMBER 

;25-APR-85 REV B - TURN OFF BUFFERING 

tTURN OFF BUFFERING CAPABILITY 

{SUBROUTINE NEEDS PACKET ADDRESS 

{ISSUE WRITE CHARACTERISTICS 

;BR. IF COMMAND ISSUED OK 
{ERROR COUNT 

{SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTISC FAILED 

TRAP CtERHRD 
.WORD 608 
.WORD WRTMSG 
.WORD SFIMSG 

{LOOP IF SELECTED 

TRAP CtCLPl 

{SET SIZE OF TRANSFER 
{WRITE DATA.ACK.CVC-l COMMAND 
(SET UP R4 WITH PACKET ADDRESS 
{CLEAR COUNTER 

SET DROP DEAD COUNTER VALUE 

ISSUE COMMAND 

GET TSSR CONTENTS 
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N15 



5413 
5414 
5415 
5416 



5417 
5418 
5419 
5420 
5421 
5422 
5426 



5427 

5428 
5429 
5430 
5431 
5432 
5436 



5437 
5438 



5439 
5440 
5441 
5442 
5443 
5444 
5445 
5446 
5447 
5448 
5449 
5450 
5451 
5452 
5453 
5454 
5455 



074166 

074172 

074174 

074200 

074200 

074204 

074206 

074212 

074214 

074220 

074222 

074226 

074230 

074234 

074236 

074242 

074244 

074246 

074252 

074252 

074254 

074256 

074260 

074262 

074262 

074264 

074270 

074274 

074276 

074300 

074304 

074304 

074306 

074310 

074312 

074314 

074314 

074316 

074316 

074316 

074320 

074326 

074330 

074334 



032701 000200 
001021 

005237 075620' 

012727 000001 
000000 

013727 002116' 
000000 

005367 177772 
001375 

005367 177756 
001367 

005337 075622' 
001352 

012702 000200 

020102 

001406 

005237 002214' 

104456 
001451 
005103' 
011736' 

104406 

013701 075616' 

013702 075620' 
020102 
003406 

005237 002214' 

104456 
001452 
075624' 
015364' 

104406 



104403 

023727 002214' 000017 
103402 

004737 017074' 



130«; 



140 «! 



300«: 



999$: 



BIT 
BNE 
INC 
DELAY 



DEC 
BNE 
MOV 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 

MOV 
MOV 
CMP 
BLE 
INC 

ERRHRD 



CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



♦SSR.Rl 
130» 
T36CNU 
1 



T36DLY 

120 » 

♦SSR.R2 

R1.R2 

140» 

FATFLG 

ERRNO , URTERR . PKTSSR 



T36CNT.RI 
T36CNU,R2 
R1.R2 
300 » 
FATFLG 

ERRNO . T36NAS . EXPREC 



FATFLG. «15. 
999 ( 

PC.CKOROP 



TEST 8. SUBTEST 2 



SEQ 195 

1 CHECK FOR SSR SET 

I BR. IF SSR IS SET 

J BUMP CYCLE COUNTER 

I CUT NUMBER OF LOOPS DOWN 

MOV 01. (PC)* 
.WORD 0 

MOV L»DLY,(PC)« 

.WORD 0 

DEC -6fPC) 

BNE . -4 

DEC -22( PC) 

BNE . -20 

jBUrff> DROP DEAD COUNTER 

J BR. IF THERE IS STILL TIME 

; SET UP EXPECTED 

jARE THEY EQUAL 

;BR. IF OK 

' ERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 



sLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C«ERHRD 
809 
WRTERR 
PKTSSR 



TRAP C»CLP1 



GET "-IRST COUNTER 
GET SECOND COUNTER 
25 -APR -83 REV B - COMPARE EM 
jBR. IF VALUES ARE CORRECT (OK) 

: ERROR COUNT 
;TAPE NOT AT CORRECT SPEED 

TRAP C$ERHRO 
.WORD 810 
.WORD T36NAS 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 



L10071: 

TRAP CtESUB 
IS ERROR COUNT AT 25 
BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 



THIS TEST VERIFIES THAT RECORD BUFFERING. USED FOR JRITE DATA 
AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
M7455 CONTROI.LER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE 
(AS CONTROLLED BY THE DIP SWITCH ON THE MODULE). IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 



Bib 



TEST 
TEST 



1 HAROUARE TEST 1 8 TEST MACRO Ml 
0: RECORD BUTFERING 



M56 
5457 
5450 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 
5460 
5469 
5470 
5471 
5472 
5475 
5474 
5475 
5476 
5477 
5470 
5479 
5400 
5401 
5402 
5403 
5404 
5405 
5406 
5407 
5400 
5409 
5490 
5491 
5492 
5493 
5494 
5495 
5496 
5497 
5490 
5499 



5500 
5501 
5502 
SSOS 
5504 
5S05 
5506 
5507 



074334 
074334 
074334 
0743S6 
074342 
074346 
074352 
074360 
074364 
074370 
074372 
074372 
074376 
074400 



15 Ol-rEB 84 18:55 



SEO 196 



BEEM ENABLED IN PREVIOUS TESTS OF READ AND WRITE Al« SQ HAS BEEN 
PARTIALLY TESTED ALREADY. THIS TEST VERiriES THAT BUf^fERING IS 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PEPrORMED: 

VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COTtlAWS OPERATES 
PROPERLY AT LCU TAPE SPEED. THE FOLLOWING SEQUENCE IS 
PERFORMED: 

1. THE TAPE IS REWOUND. 

2. BUFFERING IS DISABLED AND LOU TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMAND). 

3. AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT. 

4. THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
TAPE TO REPOSITION AND COME TO REST. 

5. A WRITE DATA COMMAND. WITH A BYTE COUNT LESS THAN 3.5K. 
IS ISSUED. AND THE PROGRAM COUNTS. IN A WAIT LOOP. THE 
TIME IT TAKES TO RECEIVE COMMAND TERMINATION. THIS 
SHOULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS 
DISABLED. 

C. BUFFERING IS ENABLED. 

7. THE WRITE DATA COMMAND IS AGAIN ISSUED. WITH THE SAME 
BYTE COUNT AS THAT USED PREVIOUSLY. THE TTMF TO 
COMPLETION IS AGAIN MEASURED. 

0. THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND 
BUFFERED CASES AT-E COMPARED. IT IS VERIFIED THAT THE 
TIME MEASURED FOR THE NON -BUFFERED CASE IS MUCH LARGER 
THAN THAT MEASURED FOR THE BUFFERED CASE. 

9. THE PREVIOUS STEPS. EXCEPT FOR REWINDING AND WRITING A 
RECORD OFF BOT. ARE REPEATED FOR VARIOUS BYTE COUNTS IN 
THE RANGE 20 THROUGH 3.5K. 



104402 

004737 100630' 

004737 100722' 

004737 100764' 

012737 176750 075622' 

005037 075616' 

004737 015664* 101: 

103426 

012727 000250 
000000 

013727 002116' 



BGNSUB 



JSR 
JSR 
JSR 
MOV 
CLR 
JSR 
BCS 
DELAY 



!>>>>>>>>>>>> 



PC.T36REST 

PC,T36RT2 

PC,T36RT3 

«65000..T36DLY 

T36CNT 

PC.SOFINIT 

20* 

250 



BEGIN SUBTEST >>»*>>>>>>»> 
TO. 2: 

TRAP CIBSUB 

jSET COMMAND PACKET 
» SET UP OTHER COMMAND PACKET 
i SET UP OTHER COMMAND PACKET 
I SET UP DELAY COUNTER 
(CLEAR COUNTER 

I 00 INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
iDELAY ABOUT .25 SEC 

MOV 9250.(^0' 
.WORD 0 

MOV HDL>..PC1' 



T£ST I HAROUARE TEST I 8 TEST MACRO HlllS 
TEST 6: RECORD BUFFERING 



01 



C16 

FEB M 16:55 





074404 


000000 














074406 


005367 


177772 












074412 


001375 














074414 


005367 


177756 












074420 


001367 












5506 


074422 


005337 


075622' 






DEC 


T36DLY 


5509 


074426 


001356 








BNE 


lot 


5510 


074430 


005237 


002214' 






INC 


FATFLG 


5514 


074434 


010001 








MOW 


RO.Rl 


5515 


074436 










ERRQF 


ERRNO , SF lERR , SF I MSG 




074436 


104455 














074440 


001453 














074442 


003642' 














074444 


011724' 












5516 


074446 


013737 


002174' 


075460' 


20$: 


MOV 


UNITN.T360SU 


5517 


074454 


052737 


000040 


075460' 




BIS 


«6IT5.TS6DSU 


5516 


074462 


012704 


075440' 






MOV 


«T36PACKET,R4 


5519 


074466 


004737 


010552' 






JSR 


PC.WRTCMR 


5520 


074472 


103407 








BCS 


25 » 


5521 


074474 


005237 


002214' 






liK 


FATFLG 


5525 


074500 


010001 








MOV 


RO.Rl 


5526 


074502 










ERRHRD 


ERRNO . UR THSG . SF I MSG 




074502 


104456 














074504 


001454 














074506 


005046' 














074510 


011724' 












5527 


074512 








25t: 


CKLOOP 






074512 


104406 












5526 


074514 


004737 


010704' 






JSR 


PC. REWIND 


5529 


074520 


103407 








BCS 


lot 


5530 


074522 


010004 








MOV 


R0.R4 


5531 


074524 


005237 


002214' 






INC 


FATFLG 


5535 


074530 










ERRHRD 


ERRNO . T 36RWN , PK T SSR 




074530 


104456 














074532 


001455 














074534 


077031' 














074536 


011736' 












5536 


074540 








30t: 


CKLOOP 






074540 


104406 












5537 


074542 


013701 


075470' 






MOV 


T368FR.6.R1 


5536 


074546 


010102 








MOV 


R1.R2 


5539 


074550 


052702 


000002 






BIS 


«BIT1,R2 


5540 


074554 


020 '02 








CMP 


R1.R2 


5541 


074556 


001406 








BEQ 


40$ 


5542 


074560 


005237 


002214' 






INC 


FATFLG 


5546 


074564 










ERRHRD 


ERRttK}. T36B0T.EXPREC 




074564 


104456 














074566 


001456 














074570 


076525' 
















015364' 












5547 


074574 








40t: 


CKLOOP 






074574 


104406 












5546 


074576 


013737 


002174' 


075460' 




MOV 


UNITN.T360SU 


5549 


074604 


052737 


000030 


075460' 




BIS 


«fiIT3!BIT4.T360SW 


5550 


074612 


012704 


075440' 






MOV 


♦T36PACKET.R4 


5551 


074616 


004 737 


010552' 






JSR 


PC.URTCHJ1 


5552 


074622 


103407 








BCS 


50$ 



SEQ 197 



. 40RD 0 
DkC 6(PC) 
BNE . -4 

DEC 22CPC) 
BNE , -20 

iBUMP COUNTER 

I BR. IF COUNTER NOT DONE 
(ERROR COUNT 

iCONTENTS OF TSSR REGISTER 

iFATAL ERROR TSSR WAS NOT OK 

TRAP CIEROF 
.UORO 811 
.WORD SFIERP 
.WORD SFIMSG 

t SET UP DRIVE NUMBER 

I TURN ON HIGH SPEED 

{SUBROUTINE NEEDS PACKET ADDRESS 

I ISSUE WRITE CHARACTERISTICS 

iBR. IF COMMAND ISSUED OK 
I ERROR COUNT 

jSAVE CONTENTS OF TSSR 

iWRITE CHARACTERXSTISC FAILED 

TRAP C«ERHRD 
.WORD 812 
.WORD WRTMSG 
.WORD SFIMSG 

iLOOP IF SELECTED 

TRAP C$CLPl 
I CALL TAPE REWIND COMMAND 
I BR. IF NO PROBLEM 
tSET UP REWIND PACKET ADDRESS 

I ERROR COUNT 
(REWIND NOT ACCEPTED 

TRAP C$ERHRD 
.WORD 813 
.WORD T36RWN 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP C$CLP1 

(PICK JP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

(DOES EXP - REC'D 

iBR. IF EQUAL (OK) 

{ERROR COUNT 

{TAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRO 
.WORD 814 
.WORD T56B0T 
.WORD EXPREC 

iLOOP IF SELECTED 

TRAP C$CLP1 

I SET UP DRIVE NUMBER 

1 25 -APR -83 REV B - TURN ON T.HE BUFFERING 
{SUBROUTINE NEEDS PACKET ADDRESS 
{ISSUE. WRITE CHARACTERISTICS 
{BR. IF COMMAND ISSUED OK 



Dib 



5555 


074624 


005257 


002214' 






INC 


FATFLG 


1 ERROR COUNT 




5557 


074650 


010001 








MOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 




5558 


074652 










ERRHRO 


ERRNO , URTMSG , Sr IMSG 


;»ITE CMARACTERISTISC TAILED 






074652 


104456 












TRAP 


CIERHRO 




074654 


001457 












.WORD 


815 




074656 


005046' 












.WORD 


WRTMSG 




074640 


011724' 












.WORD 


SFIMSG 


5559 


074642 








sot: 


CKLOOP 




iLOOP IF SELECTED 






074642 


104406 












TRAP 


C»CLP1 


5560 


074644 


012757 


005720 


075576' 




MOV 


«2000. .T56SZ 


iSET UP RECORD SIZE 




5561 


074652 


015757 


005116' 


075572' 




MOV 


rREE,T56WB 


t ADDRESS OF gRITE BUFFER 




5562 


074660 


012757 


140005 


075570' 




MOV 


♦140005. T56PK5 


t WRITE OATA.ACk.CVC"! COMMAND 




55o3 


074666 


012704 


075570' 






MOV 


•T36PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 




5564 


074672 


010465 


000000 






MOV 


R4,TSDB(R5) 


J ISSUE COMMAND 




5565 


074676 


004757 


016140' 






JSR 


PC.WAITF 


I WAIT FOR SSR TO SET 




5566 


074702 


016501 


000002 






MOV 


TSSR(R5),Rl 


iGET TSSR CONTENTS 




5567 


074706 


012702 


000200 






rlOV 


♦SSR . R2 


J SET UP EXPECTED 




5566 


074712 


020102 








CMP 


Rl,R2 


tARE THEY EQUAL 




5569 


074714 


001406 








6EQ 


60% 


iBR. IF OK 




5570 


074716 


005237 


002214' 






INC 


FATFLG 


{ERROR COUNT 




5574 


074722 










ERRHRO 


ERRNO , URTERR , PK TSSR 


tTSSR INCORRECT AFTER READ DATA 






074722 


104456 












TR/tP 


OERHRD 




074724 


001460 












.W]RD 


616 




074726 


005105' 












.Wt.lRD 


WRTERR 




074730 


011756' 












.WO^D 


PKTSSR 


5575 


074752 








60* : 


CKLOOP 




{LOOP IF SELECTED 






074732 


104406 












TRAP 


CICLPl 


5576 


074754 


012737 


000005 


075622' 




MOV 


♦05. ,T360Lr 


I25-APR-85 REV B - DELAY FOR TAPE TO STOP 


5577 


074742 








70* : 


DELAY 


1 


I25-APR-85 REV B - DELAY ROUTINE CALL 




074742 


012727 


000001 










MOV 


♦I. (PC). 




074746 


000000 












.WORD 


0 




074750 


013727 


002116' 










MOV 


L»DLT.(PC)« 




074754 


000000 












.WORD 


0 




074756 


005567 


177772 










DEC 


-6(PC) 




074762 


001375 












BNE 


. 4 




074764 


005567 


177756 










DEC 


-22{PC) 




074770 


001567 












BNE 


. -20 


5578 


074772 


005557 


075622' 






DEC 


T360LY 


iBUMP COUNTER DOWN 




5579 


074776 


001561 








BNE 


70* 


iBR. IF MORE DELAY TO GO 




5560 


075000 


012757 


006642 


075576' 




MOV 


•5490. .T56SZ 


J SET SIZE OF TRANSFER 




5581 


075006 


012757 


140005 


075570' 




10V 


4140005. T56PK 5 


jWRITE DATA.ACK.CVC-l COMMAND 




5582 


075014 


012704 


075570' 






MOV 


4T56PK5.R4 


J SET UP R4 WITH PACKE1 ADDRESS 




5583 


075020 


005057 


075616' 






CLR 


T56CKT 


(CLEAR COUNTER 




5584 


075024 


012737 


001750 


075622' 




MOV 


♦1000. .T560LY 


J SET DROP DEAD COUNTER VALUE 




5585 


075032 


010465 


000000 






MOV 


R4,TS0e(R5) 


1 ISSUE COMMAND 




5586 


075036 


016501 


000002 




80<: 


MOV 


TSSR(R5),Rl 


jGET TSSR CONTENTS 




5587 


075042 


052701 


000200 






BIT 


♦SSR.Rl 


iCHECK FOR SSR SET 




5588 


075046 


001021 








BNE 


90» 


iBR, IF SSR IS SET 




5589 


075050 


005257 


075616' 






INC 


T56CNT 


iBUMP CYCLE COUNTER 




5590 


075054 










DELAY 


1 


iCUT NUMBER OF LOOPS DOWN 






075054 


012727 


000001 










MOV 


♦ HPC">. 




075060 


000000 












.WORD 


0 




075062 


015727 


002116' 










MOV 


L$OLt,(PC). 




075066 


000000 












.WORD 


0 




075070 


005567 


177772 










DEC 


6(Pc: 




075074 


001575 












BNE 


. A 




075076 


005567 


177756 










DEC 


^^(PC^ 



E16 
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075102 


001367 












5591 


075104 


005337 


075622' 






DEC 


T360LY 


5592 


075110 


001352 








BNE 


80 1 


5595 


075112 


012702 


000200 




90< : 


MOV 


♦SSR,R2 


5594 


075116 


^^^102 








CMP 


R1,R2 


5595 


075120 


001406 








BEQ 


1001 


5596 


075122 


005237 


002214' 






INC 


FATFLG 


5600 


075126 










ERRHRO 


^ A AK (A V ■ tfV^ Aa^ V ^ ^ A 

ERRNO , T36UDE , PKTSSR 




075126 


104456 














075130 


001461 














075132 


076453' 














075134 


011736' 












5601 


075136 








AA * 

lOOl : 


^ tyl AAA 

CKLOOP 






075136 


104406 












5602 


075140 


013737 


002174' 


075460' 




MOV 


UNITN.T36DSU 


5603 


075146 


AC V ^ 

052737 


AAAA4 A 

000010 


A9C Af A 1 

075460' 




BIS 


«dIT3, T360SW 


5604 


075154 


012704 


A^C A A A ■ 

075440' 






MOV 


♦T 56P ACKE T , R4 


5605 


075160 


AAA f 

004737 


010552 






JSR 


A^ 1 lA ▼ AuA 

PC , WRTCHR 


5606 


075164 


• A V A A^ 

103407 








BCS 


4 • A * 

not 


5607 


075166 


005237 


002214' 






INC 


r ATr Lu 


5611 


075172 


A 9 AAA4 

010001 








MOV 


A A n 4 

HO.Rl 


5612 


075174 










ENRHND 


eBOUA t.ATMe#* CPTMC^ 

ERRNO 1 URTMSG ■ Sr IMSu 




075174 


104456 












075176 


001462 














«kAA 

075200 


AACA^f ■ 

005046 














075202 


011724* 












5613 


075204 








not : 


^ft^i AAA 

CKLOOP 






075204 


104406 












5614 


A^C 

075206 


A4 A^ V *V 

012737 


AA^^ A A 

006642 


075576' 




MOV 


#3490. ,T* 'jZ 


5615 


075214 


012737 


140005 


A 9CC ^A i 

075570' 




MOV 


#140005. 36PK3 


5616 


075222 


012704 


075570' 






MOV 


#T36PK3,R4 


CX « 

5617 


075226 


005037 


075620' 






CLR 


T36CNU 


5610 


A^C ^ V% 

075232 


A« A^ V ^ 

012737 


001750 


075622' 




MOV 


m.* AAA W^Ai W 

#1000. • T360LT 


5619 


075240 


A« AAf C 

010465 


AAAAAA 

000000 






MOV 


AA Y r* AB / AC \ 

R4, TS0BCR5J 


5020 


075244 


016501 


AAAAAA 

000002 




1201 : 


MOV 


TSSRCR5),R1 


5621 


075250 


A9 A^Afl 

032701 


fl ft A A 

000200 






BIT 


♦SSR.Rl 


5622 


A7C AC A 

075254 


001021 








BNE 


130t 


5623 


075256 


AAC AV ^ 

005237 


075620' 






INC 


T9^ A&M ft 

T36CNU 


5o«:4 


O 75262 










APi A w 

DELAY 


1 




075262 


A 4 A 

012727 


000001 












AT< 

073266 


AAAAAA 

000000 














075270 


A4 V ^ A^ 

013727 


002116' 












0752 74 


AAAAAA 

000000 














0^5276 


AAC ^ 

005367 


177772 












075302 


001375 














A'^g »A^ 

O rDo04 


AAC V£ Y 

005367 


177756 












A 7S VIA 

075olO 


001367 












5o«:5 


Of 53 12 


Ai\C 

005337 


A^C^ A A I 

075622' 






Af /* 

DEC 


T V£ Al V 

T36DLT 


50ee 


Or5316 


001352 








BNE 


120 1 








UUUeUv 






nuv 


ACCD 

■ AC 


5628 


075324 


020102 








CMP 


RI.R2 


5629 


075326 


001406 








BEQ 


1401 


5630 


075330 


005237 


002214' 






INC 


FATFLG 


5634 


075334 










ERRHRO 


ERRNO. URTERR . PK TSSR 




075334 


104456 












075336 


001463 














075340 


005103' 













SEQ 199 



BNE 



■20 



iBUMP DROP DEAD COUNTER 

iBR. IF THERE IS STILL TIME 

J SET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IF OK 

1 ERROR COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP CtERHRO 
.WORD 817 
.WORD T36W0E 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CtCLPl 

I SET UP DRIVE NUMBER 

I25-APR-83 REV B - TURN OFF BUFFERING 

{SUBROUTINE NEEDS PACKET AQORESS 

•ISSUE WRITE CHARACTERISTICS 

iBR, IF COMMAND ISSUED OK 

t ERROR COUNT 
I SAVE CONTENTS OF TSSR 
i WRITE CHARACTERISTISC FAILED 

TRAP 



J LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



CtERHRO 
618 

WRTMSG 
SFinSG 

CtCLPl 



I SET SIZE OF TRANSFER 
{WRITE OATA.ACK.CVC-l COMMAND 
I SET UP R4 WITH PACKET ADDRESS 
(CLEAR COUNTER 

{SET DROP DEAD COUNTER VALUE 

(ISSUE COmANO 

(GET TSSR CONTENTS 

(CHECK FOR SSR SET 

(BR, IF SSR IS SET 

(BUMP CYCLE COUNTER 

(CUT NUMBER OF LOOPS DOWN 

MOV »l.(PC)» 
.WORD 0 

MOV LtDLY.CPC). 

.WORD 0 

DEC 6(PC) 

BNE -4 

DEC -22( PC) 

BNE . 20 

(BUMP DROP DEAD COUNTER 

(BR. IF THERE IS STILL TIME 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR. IF OK 

(ERROR COUNT 

(TSSR INCORRECT AFTER WRITE DATA 

TRAP CJERHPD 
.WORD 819 
.WORD WRTERR 



F16 



TEST 1 HAROUAft£ TfST 1 8 TEST MACRO MlllS 
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5635 

5636 
5637 
5630 
5639 
5640 
5644 



5645 
5646 



5647 
5646 
5649 

5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5658 
5659 



075342 
075344 
075344 
075346 
075352 
075356 
075360 
075362 
075366 
075366 
075370 
075372 
075374 
075376 
075376 
075400 
075400 
075400 
075402 
075410 
075412 
075416 



075416 
075422 
075424 
075430 
075430 
075430 
075432 



011736- 
104406 

013701 C75616' 

013702 075620' 
020102 
003406 

005237 002214' 

104456 
001464 
075624' 
015364' 

104406 



104403 

023727 002214' 000017 
103402 

004737 017074' 



004737 016350' 
103002 

000137 073260' 



1401: 



3001: 



FEB 04 


18:55 




SEQ 200 






.WORD 


PKTSSR 


CKLOQP 




iLOOP IF SELECTED 








TRAP 


CtCLPl 


MOV 


T56CNT.R1 


iGET FIRST COUNTER 




MOV 


T36CNU,R2 


iGcT SECOND COUNTER 




CMP 


Rl ,R2 


J 25 -APR 03 REV B - COMPARE EM 




BLE 


3001 


|BR, IF VALICS ARE CORRECT (OK) 




INC 


r ATr LG 


1 ERROR COUNT 




ERRHRO 


ERRNO 1 T36NASiEXPREC 


1 TAPE NOT AT CORRECT SPEED 








TRAP 


OERHRO 






.WORD 


020 






.WORD 


T36NAS 






.WORD 


EXPREC 


CKLOOP 




iLOOP IF SELECTED 








TRAP 


ClCLPl 


ENOSUB 












L. i W r c • 








TRAP 


OESUB 


CMP 


FATFLG.015. 


lis ERROR COUNT AT 25 




BLO 


9991 


J BR, IF LESS THAN 25 




JSR 


PC.CKOROP 


iTRY TO DROP THE UNIT 





999* i 



163>: 



104432 
003354 



JSR 
BCC 
JMP 

EXIT 



PC.TSTLOOP 

163» 

T36L00P 

TST 



tOO WE NEED TO ITERATE TEST 
I BR. IF NO LOOP REQUIRED 
J EXECUTE AGAIN 



:ALL DONE THIS TEST 



TRAP 
.WORD 



CIEXIT 
L 10070- 



5660 












5661 






tLOCAL STORAGF 






5662 






FOR THIS TEST 




5663 












5665 


075434 




* .BLKB 


10-<.-TSV2C7> 




5667 


075440 




T36PACKET: 




J COMMAND PACKET FOR TEST 


5666 


075440 


100004 


.WORD 


100004 


:URITE CHARACTERISTICS COMMAND. UITM 


5669 


075442 


075450' 


.WORD 


T36DATA 


5 ADDRESS OF CHARACTERISTICS BLOCK 


5670 


075444 


000000 


.UORD 


0 




5671 


075446 


000012 


.UORO 


10. 


{STARTING VALUE OF BLOCK SIZE 


5672 


075450 




T36DATA: 




, CHARACTERISTICS DATA BLOCK 


5673 


075450 


07546?' 


.ym> 


T36BFR 


{ADDRESS OF MESSAGE BUFFER 


5674 


075452 


000000 


.UORD 


0 




5675 


075454 


000024 


.WORD 


20. 


I LENGTH OF MESSAGE BUFFER 


5676 


075456 


000000 


.UORD 


0 




5677 


075460 


000000 


T36DSU: .UORD 


0 


.SELECT DRIVE 0 


5676 


075462 




T36BFR: .BLKU 


25. 


(MESSAGE BUFFER 


5679 






> 






5660 






lURITE SUBSYSTEM MEMORY COMMAND PACKET 




5661 












5663 


075544 




.BLKB 


lO-<.-TSV2£7> 




5665 


075550 




T36PK2: 




{WRITE SUB SYS MEM COMMAND. AND "^Ck 


5666 


075550 


100006 


.UORD 


100006 


5667 


075552 


075600' 


.WORD 


T3f.BF2 


{ADDRESS OF SELECT BLOCK DATA 



ACK 



Gib 



TEST I HAROUARE TEST 1-8 TEST MACRO MlllS 
tEST 8: RECORD BlfFERING 



01 FEB 84 18:55 



SEQ 201 



5688 
5689 
5690 
5692 
5694 
5695 
5696 
5697 
5698 
5699 
5700 
5701 
5702 
5703 
5704 
5705 
5706 
5707 
S70S 
5709 
5710 
5711 
5712 
5713 
5714 
5715 
5716 
5717 
5716 
5719 
5720 
5721 
5722 
5725 
5724 
5725 
5726 
5727 
5726 
5729 
57S0 
5751 
5752 
5753 
5754 
5755 
5756 
5757 
5756 
5759 
5740 
5741 
5742 
5745 
5744 
5745 
5746 



075554 
075556 

075560 
075570 
075570 
075572 
075572 
075574 
075576 



075600 
075600 
075601 
075602 
075604 



075606 
075610 
075612 
075614 



075616 
075620 
075622 



OOOOOO 
000006 



100005 

003116' 

OOOOOO 

OOOOOO 



010 
200 
OOOOOO 
OOOOOO 



100205 
100605 
102205 
177777 



OOOOOO 
OOOOOO 
OOOOOO 



.WORD 0 
.WORD 6. 



10 <. »SV2£7» 
100005 

FREE 

0 
0 



.BLKB 

T36PK3: 

.UORO 

T36RB: 

T36UB: .WORD 

.UORO 
T36SZ: .WORD 

• EVEN 

t 
i 

T368F2 
TS68S0 
T368S1 
T56S2: 
T56S3: 

• 

' .EVEN 

(TAPE MOTION PACKET COMMAND VALUES 

T56IW4: .WORD 100205 

T36U0R: .WORD 100605 

T36C0N: .UORO 102205 

•UORO 177777 



.BYTE 10 

.BTTE 200 

.UORO 0 

.UORO 0 



TS6CNT 
T56CNU 
T560LY 



t » 



.UORO 0 
.WORD 0 
.WORD 0 



jLOCAL TEXT MESSAGES FOR TEST 



tSIZE OF DATA PACKET 

(REREAD COMMAND. AND ACK 
lAODRE'^S OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 



iBSELO AREA 
iBSELl AREA 
iSEL 2 AREA 
lOATA AREA 



tREREAL DATA (KLXT) 
iREREAO DATA RETRY 
i WRITE CONTINOUS 
tEND OF DATA 



:TAPE TIMER COUNTER STORAGE AREA 
sTAPE TIMER COUNTER STORAGE AREA 
: DEL At COUNTER 



075624 


111 


155 


160 


T36NAS 


.ASCI2 


075675 


124 


141 


160 


T36UNC 


.ASCI2 


075763 


124 


123 


125 


T36R0F 


.ASCIZ 


076052 


122 


105 


122 


TS6RRF 


.ASCIZ 


076127 


120 


117 


125 


T36SC; 


.ASCIZ 


076211 


122 


111 


102 


T36L0R 


.ASCIZ 


076261 


124 


125 


125 


T56U0F 


.ASCIZ 


076556 


111 


154 


154 


T36L0Q 


.ASCIZ 


076417 


122 


105 


122 


T56SSR 


.ASCIZ 


076455 


124 


123 


125 


T56WDE 


•ASCIZ 


0'»6525 


124 


141 


160 


T56B0T 


.ASCIZ 


076620 


127 


122 


111 


T56TIM 


.ASCIZ 


076675 


122 


105 


122 


T36E0T 


.ASCIZ 


076754 


124 


123 


125 


T36TM: 


.ASCIZ 


077051 


122 


145 


167 


T36RWN 


.ASCIZ 


077100 


122 


101 


115 


T56RNC 


.ASCIZ 


077155 


124 


123 


125 


T36AM3 


.ASCIZ 



Improper Tap* Controller Buffering Speed' 
Tape Position Incorrect After REREAD Previous (0PP>1)' 



TSSR Incorrect After READ DATA CoanMnd' 
'REREAD Previous (Space Reverse. Read ForMsrd) CoMnand Failed 

POSITION (Space Ce«Mand) Failed. TSSR Not Correct' 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Correct After Illegal Mode Bits Set' 

Illegal Mode Bits. Failed To Set ILC Bit In XSTO' 

REREAD COMMAND Not Accepted' 
' TSSR Not Correct After WRITE DATA CoMMnd' 
'Tape Not At BOT After REWIND Cetmnand (BOT Not Set In XSTO) 

WRITE DATA RETRY" S Erase Tap* Not Long Enough' 
■REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT 
■TSSR Not Correct After REREAD COMMAND Reject' 
'ReMind (POSITION) CoMnand Not Accepted' 
'RAM Error. Correct Data Pattern Not In Ram' 

TSSR Init. Failed After REREAD COMMAND 



TEST 
TEST 



B: REC 



MARgWMR|^ TESI..l_a TEST MACRO Mil 15 



01 FEB 64 16:55 



Hie. 



SEQ 202 



5747 
5746 
5749 
5750 
57S1 
5752 
5755 
5754 
5755 
5756 
5757 
5756 
5759 
5760 
5761 
5762 
5765 
5764 
5765 
5766 
5767 
5766 
5769 
5770 
5771 
5772 
5773 
5774 
5775 
5776 
5777 
5778 
5779 
5780 
5781 
5782 
5783 
5784 
5785 
5786 
5787 
5788 
5789 
5790 
5791 
5792 
5793 
5.94 
5795 
5796 
5797 
5798 
5799 
5800 
5801 
5802 
5805 



077222 
077275 
077365 
077440 
077515 
077566 
077655 
077737 
lOOOPl 
100. '7 
100175 
100273 
100550 
100432 
100512 
100607 



100630 
100630 
100634 
100640 
100644 
100650 
100652 
100656 
100662 
100664 
100670 
100672 
100676 
100702 
100710 
100712 
100716 
100720 



100722 
100722 
100726 
100732 
100736 
100742 
100744 
100750 
100752 
100756 
100760 
100762 
100764 



104 
124 
124 

105 
124 
127 
122 
122 
122 
122 
127 
124 
124 
124 
104 
122 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



075440' 

100004 

075450' 

000012 
075462' 

000024 

000000 
000030 

177777 075462' 
000000 



075550' 

100006 

075600' 

000006 

075600' 



Orlv* 7 S«l«ct Failed To S«t 'OFl' In TSSR 

TSSR Not Correct After REREAD DATA Commmnd. SUB Bit S«t' 
' TSSR Not Correct After REREAD DATA Comnmnd' 

CVC Set. Didn"t Reeet VCK In tieeeege Buffer- 
■TSBA Not Correct After REREAD DATA CoMMW>d' 
'URITE SUeSTSTFK rCMORY Commmnd Not Accepted (RAM Read)' 
'Reading Long Rt-cord Failed To Set RLL Bit In XSTC 
' Reading Long Ri«ord Failed To Set RLS Bit In XSTC 
'Residual Byte Count Incorrect After Short Record Read' 
'Reading Long Record Failed To Give Tape Statu* Alert' 
'URITE DATA RETRY. At First Record, Failed To Set RIB Bit XST3 
' TSSR Not Correct After SPACE RECORDS CoMnand' 

TSSR Not Correct After URITE DATA RETRY. Into BOT' 
'TSSR Not Correct After URITE DATA RETR Command' 
'Oata Compare Error, Data Read From Tape Not Equal To Ur'tten' 
.ASCIZ 'Record Buf faring' 



{ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALiJES 

i URITE SUBSYSTEM MEMORY COMMAND 

i 

i - 





131 


1 3oi^ L 


• nsL Ix 


led 


IcO 






1 9X 






■ ~ Jl. x^ 








« XX 








A5CIZ 

• r^^WX X 




lit 

XXX 




• n9\> XX 




141 


T56L0N 


. ASCIZ 


IAS 


141 




ASCT7 


145 

X^ J 


16S 


T56PflP 


.ASCIZ 


145 


141 


T56TRL 


.ASCIZ 


122 


111 


T36NEF 


•ASCIZ 


125 


123 


T36SCF 


.ASCIZ 


125 


125 


T36TSA 


.ASCIZ 


125 


125 


T56URF 


• .ASCIZ 


141 


164 


T56DTA 


.ASCIZ 


145 


143 


TST36ID: 






I ♦ 


.EVEN 



r36REST: 



64>: 



SAVREG 




iSAVE THE REGISTERS 


MOV 


•T36PACKET.R1 


: START OF THE PACKET 


MOV 


•100004. CRD* 


: URITE SUBSYSTEM MEM. UITM ACK. 


MOV 


♦T360ATA.(R1)» 


i ADDRESS OF THARAISTICS DATA BLOCK 


CLR 


(Rl)» 


1 EX TENDED ADDRESS 


MOV 


#10.. (RD* 


:SIZE OF DATA BLOCK IN BYTES 


MOV 


«T36BFR.CR1)» 


(ADDRESS OF MESSAGE BUFFER 


CLR 


(Rl)» 




MOV 


•20. .(RD* 


J LENGTH OF MESSAGE BUFFER 


CLR 


CRl)» 




MOV 


•O.(Rl) 


i SELECT DRIVE ZERO 


MOV 


•24.. R2 


i NUMBER OF LOCATIONS TO BE CLEARED 


MOV 


•177777. T368FR(R2) 


(ALL ONES TO MESSAGE BUFFER 


TST 


-(R2) 


tNEXT LOCATION 


CMP 


•0.R2 


:AT END OF LOOP VET 


BNE 


64» 


(KEEP GOING UNTIL DONE 


RTS 


PC 


i RETURN 



TS6RT2! 



T36RT3: 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

CLR 

CLR 

RTS 



•T36PK2.RI 

•100006. (RD* 

•T36BF2,CR1)* 

(Rl)» 

•6. .CRD* 

CRD* 

•T36BF2.RI 

(RD* 

(Rl) 

PC 



I SAVE THE REGISTERS 

(START OF THE PACKET 

(URITE SUBSYSTEM MEM. UITH ACK. 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE 0*- DATA BLOCK IN BYTES 

(POINT TO DATA SEL AREA 



(RETURN 



116 



TEST 
TEST 



HARDWARE TEST 1-8 TEST HACRO ^1113 
RECORD BUFFERING 



01 -FEB 04 16:55 



SEQ 203 



5004 

5805 
5806 
5807 
5808 
5809 
5810 
5811 



5812 
5813 
5814 
5815 
5816 
5817 
5816 
5819 
5620 
5821 
5822 
5823 
5624 
5625 
5626 
5627 
5828 

5629 
5630 
5635 
5636 
5637 
5838 
5639 
5840 
5641 
5842 
5643 
5844 
5845 
5646 
5647 
5648 
5849 
5850 



5651 
5652 
5653 
5654 
5655 
5656 
5657 
5858 
5659 



100764 
100770 
100774 
100776 
101000 
101002 
101004 
101006 
101006 
101006 



101010 
101010 
101010 
101016 
101022 
101026 
101032 
101040 



101044 

101044 
101044 
101044 
101046 

101052 
101056 
101062 
101066 
101072 
101076 
101104 
101110 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



012737 
004737 
012700 
004737 
012737 
005037 



104402 

005037 
005057 
005037 
004737 
004737 
004737 
012737 
004737 
103426 



075570' 



SAVREC 

HOV 

CLR 

CLR 

CLR 

CLR 

RTS 

ENOTST 



♦T36PK3.RI 

(Rl)» 

(Rl)» 

(Rl)» 

(Rl) 

PC 



I SAVE REGISTERS 

I SET UP POINTER ADDRESS 

iCOrtlANO SPACE 

I ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

iSIZE OF DATA TRANSFER BLOCK 

(RETURN 



L 10070: 



TRAP 



C»ETST 



.SBTTL TEST 9: FUNCTION TIMING 



( » 



(THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
(RECORDS. GAPS. AND EXTENDED GAPS OF THE PROPER LENGTH. BO" H LOW 
(AND HIGH SPEED MOOES ARE TESTED. IT IS ALSO VERIFIED THAT A 
(SPACE RECORDS COMMAND WITH A RECORD COiJNT OF 80 OR MORE. AND A 
(SKIP TAPE MARKS COMMAND WITH A COUNT OF 2 OF MORE. OPERATE THE 
(TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 
(REAL-TIME CLOCK IS AVAILIAflLE ON THE SYSTEM. THE TEST OPERATES BY 
(TIMING VARIOUS TAPE -MOTION OPERATIONS. USING A NUMBER OF 
(DIFFERENT TEST RECORD LENGTHS. 



006166' 

017166' 

105243' 

016402' 

000005 

102306' 



002172' 



002210' 



BGNTST 

MOV 
JSR 
MOV 
JSR 
MOV 
CLR 



•EPRTl.EPRTSW 

PC.KTOFF 

•TST37ID.ro 

PC.TSTSETUP 

♦5.L00PCNT 

T37CNT 



T9: : 

(PRIMARY ERROR MESSAGE 

;TURN KT OFF 
(ASCII MESSAGE TO IDENTIFY TEST 
(DO INITIAL TEST SETUP 
(PERFORM 5 ITERATIONS 
(CLEAR TAPE RECORD COUNTER 



TEST 9. SUBTEST 1 



T37L00P: 



002216' 
102306' 
102310' 
105264' 
105356' 
105420' 

176750 102312 
015664' 10$: 



BGNSUB 



CLR 
CLR 
CLR 
JSR 
JSR 
JSR 
MOV 
JSR 
BCS 



• >>>>>>>>>>>> 



>>>>>>>>>>>> 



INTRECV 

T37CNT 

T37CNU 

PC.T37REST 

PC.T37RT2 

PC.T37RT3 

♦65000. .T37DLY 

PC.SOFINIT 

20 1 



BEGIN SUBTEST 
T9.1: 

TRAP 

(INTERRUPT INDICATOR 
(TIMER FOR WRITE DATA SPACING 
(TIMER FOR WRITE DATA RETRY SPACING 
(SET COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
(SET UP OTHER COMMAND PACKET 
(SET UP DELAY COUNTER 
(DO INITIALIZE ON CONTROLLER 
(BR IF INIT WAS OK 



C»BSLe 



J16 

TEST I HAADUARE TEST 1 a TEST MACRO mil3 Ol-fEB-M 1«:SS SEQ 204 

TEST 9: TUNCTION TIMING 













**vo 

»■ aU 








1 At 1 1 ^ 


At 0737 


AAAO^A 
UvUc jU 






MAli 

nuv 


wcDU • I PL ) * 




101116 


oooooo 








. UUHD 


0 




I01120 


013727 


0O2116 






nov 


Lf lA-T , c PC ; ♦ 




1011c4 


oooooo 








. wUHU 


r\ 
U 




101126 


A/%C VA 7 


1 77770 






DcC 


-OV PL ) 




101132 


001375 








BNc 


-A 




101134 


0U336 ' 


1 If too 






DfcC 


'C.<\ PC > 




101140 


AA1 








BNC 


^A 




101142 


AAC VS7 


1 AOV1 O • 




TX70I y 
1 9 'Ul. T 








101140 


AA1 

U0133O 




Due 


lot 

1U9 


• BO TP rOlMTPD MOT OOMC 

IDH« ir v>uun 1 tK nu 1 uunc 










f^OO\ A* 

UUce 14 


TMT 

ini* 


rATPi f; 

r M 1 r 


tPOOOB roiMT 




T>00 ' 




A1 AAA1 




nw 


DO 01 


iTOMTFMTC or TCCB DPflTCTPB 




3000 








PDDOP 


FBBMO Cr TFBO CP THCfl 


iPATAI PBOnO TCCB UAC MOT 






101190 










TRAP 


OEROF 




• All KJ\ 


AA1 AJVK. 








.WORD 


901 




1 A1 1 i^O 

1U11D<: 










.WORD 


SFIERR 




lUllOA 


All 7dA * 
Ull IC* 








.UORO 


SFIMSG 




1 A1 1 £^ 


A1 X7V7 

UIO 13 1 




nuw 


UTIX IHt 1 rU3V* 


:SET UP UNIT NUMBER 




















^JI71 
90 ' 1 


1 ni 1 7A 
lull 


A1 37AA 

Vie • 


1 A9 1 xn * 


MTII/ 
■Tw¥ 


ATX7PArKFT BA 


t SUBROUTINE NEEDS PACKET ADDRESS 


30 < c 


1 A1 OAA 


AAA7X7 
UU# for 


A 1 A^^O • 


ICO 


DP LATPMO 


t ISSUE URITE CHARACTERISTICS 






1 A1 OAA 


lU r 




arc 


3Xt 


tBR IP COMMAND ISSUED OK 






1 A1 


AA^3Y7 


AA091 A* 


TUT 


c-ATri r; 
r fi 1 r 


t ERROR COUNT 




30 ' O 


1 A1 3 


A1 AAA1 




MOW 


BO B1 
KU » ftl 


iSAVE CONTENTS OP TSSR 




^A70 


1 A1 31 A 
lUlcl4 








FBBKIO UBTHCn CP TMCH 


tURITE CHARACTER 1ST ISC FAILED 






1 A1 3 1 A 










TRAP 


CtERHRD 




1 A1 31 ^ 


AA1 il.A£. 








.UORO 


902 




1 At 33A 


AACAAiL. ' 








'uORD 


URTMSG 




1 A1 003 


All * 

Ull 








.UORD 


SFIMSG 




1 A1 




c3« : 


net ooD 




;LOOP IF SELECTED 






1 A1 3 OA 


1 AAA AiL 








TRAP 


C«CLP1 




1 A 1 3 3iL 


AAA 7 V7 
UUA f 3 r 


A1 A7AA ' 

uio ruA 




or BPUTUn 


:CALL TAPE REWIND COMMAND 






1 A1 


1 AVA 1 1 




BUS 


3U» 


:BR. IF NO PROBLEM 




^AAX 


1 A1 OXA 


A1 4L^A1 


A^\AAO 


MOU 

nu¥ 


TCCBfB^^ B1 


5 GET TSSR CONTENTS 






1 A1 OAf\ 


A1 A^\A 




MOW 

nuv 


BO OA 
MU t 


;GET PACKET ADDRESS 






1 A 1 O 




AAO0 1 A ' 


TUP 


raTPi r. 


I ERROR COUNT 




SAAQ 


INIlc^O 








POOKlO TX7BLIIki PKTCCO 


: REWIND NOT ACCEPTED 






1 A 1 










TRAP 


CIERHRD 




1 A 1 
lUlc 


AA1 iLA7 








.WORD 


903 




1 01 










.WORD 


T37RWN 




1 A1 


A1 1 TXt^i 
Ull r OO 








.WORD 


PKTSSR 




lUXcDo 




sv* * 


TKI OOP 




:LO0P IF SELECTED 






1 At 


1 AAAA& 








TRAP 


CJCLPl 




1 A1 OJLA 


A1 'V7A1 
U13 /Ql 


1 A0 1 £ A t 


MOW 

nuv 


1 o for n>0 «nl 


:PICK UP XSTO 






1 A1 OJLA 


A1 A1 AO 
VlUlUlf 




MAW 

nuv 


D1 DO 
Nl (Kc 


iSET UP EXPECTED 






1 A1 


A1«37A3 


AAAAAO 


BTC 
Bl9 


ABTTI B9 
vBl 1 1 (Ke 


J SET BOT BIT IN EXPECTED 






1 A1 D70 
lUlc 


AOA1 AO 




CMO 


D1 DO 
HI , He 


J DOES EXP - REC'D 






1 A1 OTA 
IVlc r ^ 


UUl^UO 




DCU 


AOl 
HUV 


iBR. IF EQUAL (OK) 






1 A1 07iL 
1U1£ ro 


AA^O V7 


AA001 A • 


INL 




: ERROR COUNT 




5900 


101302 




ERRHRD 


ERRNO . T37B0T . EXPREC 


I TAPE NOT AT BOT AFTER REWIND 


CSERHRO 




101302 


104456 








TRAP 




101304 


001610 








.WORD 


904 




101306 


103161' 








.UORD 


T37BOT 




101310 


015364' 








.UORO 


EXPREC 


5901 


101312 




40$: 


CKLOOP 




;LQOP IF SELECTED 


C»CLP1 




101312 


104406 








TRAP 



<i6 

TEST I MAROUARE TEST 1-8 TEST MACRO M1113 01 -FEB 84 18:55 
TEST 9: FUNCTION TIMING 





xUxox^ 


VXC fvo 








nuv 


A1 AA DX 
VlUU . fHo 




1 A1 


A1 T7T7 

UXd f J f 








MOW 

rTwV 


POFP TX7UR 
r rtcc • 1 o r wo 




1 A1 


m 37T7 
VXC ' J > 




1 A ' 


D3v . 


nuv 


4fW)^ TX7PKX 
wXHUWj» lOfr''\J 




lUX^O^ 


VXC ' 








nuv 


ATX7PKX DA 

tf 1 J r r F\ ^ 1 




mi 

lUXA^U 


m 37X7 
Vie ' 0 1 




1 ' 
XVCCDD 




rinu 


VoUU ■ « 1 O ' 


f 


XUXd^D 










MOW 
nuv 


t 1 3UDV > 




1 A1 Ti^O 

XUX'S^C 




A1 A,1 Af\* 








J Mnx 1 • 




XUXOSD 


VX03UX 


UWWc 






MCWI 

ft\J w 






xvx^oc 


V Xc f vc 








( fU V 








0301 09 
VcVXVC 








CMP 


Q1 RP 




101 X7n 
xvx^ ■ v 


001 AOft 










701 




1 A1 X70 
XUXO r c 


00*^3X7 
W3cO ' 










FATFLC 


37X » 












corhRO 


PRRNO TS7U0C PKTS^R 




mi X7A 

XUXO f o 


1 OAA^4t 














mi Ann 


nni A1 1 

\A/XOXX 














1 1\\ AfiS 
XVX^VC 


xv*tvcx 
















VX X ' 












^7XO 


1 ni Afif. 








70i « 


TKi nop 






mi4nA 














J7X7f 


mi 4m 

XUX^XW 


nnsxnx 










RX 


37CV 


mi Ai 3 


nni 










65 1 


J 'CX 


mi4i4 

xvx^ x^ 


0047X7 








JSR 


PC REUIND 




101490 


103411 
XV X X 










130( 




101499 


016^1 








MOV 


TSSRCRS) Rl 


J7C^ 


mi49#« 
XvX^CO 


oinnn4 

VXV^A/^ 








HOU 


RO R4 


SQ3S 


m 1 A xn 


nn^3X7 

W3cO ' 


ftftp0 1 A * 






TNT 


FATFLG 


J7c7 


1014X4 
XWX^ 










ERRHRD 


FRRNO T37RUN PKT^^R 




XWX^ 


1 nAA^f, 














1 014V« 
xvx^oo 


nniAi3 














1 ni AAn 


Xvd^03 














1 01449 


ni 1 7XJ%> 
vxx ' 












^7 












TKi nnp 






IMAAA 

XV x^^^ 














J7JX 


10144A 
XVX^^O 


ni X7ni 

VXw r VX 


XUC JIDV 








TX7RrR*A Rl 




1014^ 
xvx^^c 


mm 03 

VXVXVc 








nuv 


Rl RP 


5933 


1014S4 


V9k r vc 


wvwc 






ox w 


MITi R2 




1014liO 


090109 

VCVXVC 








TMP 


Rl R9 

fix • "C 


593% 


10144^ 

XVX^O£ 


001406 








RPQ 
Owla 


140t 


5936 


101464 


0OS937 








Xr«\» 


FATFLG 


5940 


101470 












ERRNO T37BQT EXPREC 






in44^ 
XV*^ JO 
















001 A1 X 
















1 OX1 A1 • 

XV J XO X 
















VX JJO^ 












5941 












CKL OOP 








10440ik 
x^^^^vo 












5942 


101502 


012704 


102260' 






MOV 


♦T37PK3,R4 


5943 


101506 


012737 


000037 


102262' 




MOV 


♦31..T37RB 


5944 


101514 


012737 


140010 


102260' 




MOV 


♦140010. T37PK3 


5945 


101522 


010465 


000000 




LS0«: 


HOV 


R4.TS0BCR5) 


5946 


101526 


005237 


102306' 




1521: 


INC 


T37CNT 


5947 


101532 










DELAY 


1 




101532 


012727 


000001 











101536 000000 

101540 013727 002116' 

101544 000000 

101546 005367 177772 



SEQ 205 



I NUMBER OF RECORDS TO BE WRITTEN 

, STARTING WRITE BUFFER ADDRESS 

iWRITE OATA.ACK.CVC-1 COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

i ISSUE COMMAND 

I WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

:ARE THEY EQUAL 

iBR. IF OK 

(ERROR COUNT 

;TSSR INCORRECT AFTER WRITE DATA 

TRAP CIERHRD 
.WORD 905 
.WORD TS7W0C 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP C*CLPl 

;DEC RECORD COUNTER 

iBR. IF MORE RECORDS TO WRITE 

I CALL TAPE REWIND COMMAND 

sBR. IF NO PROBLEM 

iGET TSSR CONTENTS 

:GET PACKET ADDRESS 

i ERROR COUNT 
{REWIND NOT ACCEPTED 

TRAP CtERHRD 
.WORD 906 
.WORD T37RWN 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP CICLPl 

J PICK UP XSTO 

;SET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

:DOES EXP - REC'O 

:BR, IF EQUAL (OK) 

: ERROR COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP CIERhRO 
.WORD 907 
.WORD T37B0T 
.WORD EXPREC 

sLOOP IF SELECTED 

TRAP CiCLPl 

J SET UP PACKET ADDRESS 

i SET UP RECORDS TO SPACE OVER 

lACK.CVC-l.SPACE FORWARD COMMAND 

J ISSUE COMMAND 

iBUMP TIMER 

(DELAY ABOUT lOOUS 

MOV «l,CPC)» 
.WORD 0 

MOV L»DLY.(PC)» 

.WORD 0 

DEC -6(PC) 
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101552 


00157^ 










BNE 


. -4 




101554 


0053o7 


1 fJfDO 








DEC 


A/* \ 

-22( PC ) 




101560 


001567 










BNE 


. 20 


5948 


101562 


A • ^CM4 

016501 


000002 




nov 


TCCD/DQ^ D4 






5949 


101566 


A V%^A4 

032701 


000200 




DTT 


ACCD D4 


. PkiCPI/ PAO TCCDt C CCD CC T 

iLntLK rOR I5bn' b bbn bcT 




DfDO 


t n% C7^ 


AA4 7CC 
001 f 33 








1 ■13 » 






5951 


101574 


A 4 ^TA^ 

012 702 


AAAOAA 
000200 




nuv 


ACCD D3 


. CC T lA PyDCPTCA 




5952 


101600 


A^A^A4 

020201 








D3 D4 


• UAC CWCDVTUTklP Al/ 




5933 


4 A 4 

101602 


AA4 AAA 

001406 






Qcn 


1 AAA 


.QD TC Ai 1 TC uCi 1 
ION, Ir HLL lb WcLL 




5954 


4 A4 ^ AA 

101604 


0O523 ' 


AA304 A 1 

002214 




1N(, 




• CDDAD PAl tfjT 




3930 


4 A4 ^ 4 A 

1016 10 










cooun TT7crr dittccd 


• QDArP CnDUADA ATAfa* T UADV Al IT 
} oKMImC r UftHHrtU UlUN 1 WUKI\ UU 1 






4 A 4 ^ 4 A 

101610 


4 AA ACA 

104456 










TOAD 


f *CDh^3A 




4 A4 £4 ^ 

101612 


AA4 A 4 A 
001614 










LI AD A 






4 At £ 4 A 

101614 


4 AA 7*^7 > 

104727' 










LI AD A 


T17CPP 
1 3 f bLr 




4 A 4 1 C 


A4 4 7 • 
Oil r3D 










unon 


Dl/ T CCD 


3959 


4 A4 ^'9A 

10162v 






4 AAt . 

loO* : 


PI/I Ano 




,1 AAD Tr CCI CPTCn 
;I.UUr' Ir ocLCUIcU 






4 A4 

lOlocU 


1 AAAAA 
10440D 










TDAD 


P tPl D4 


370U 


4 At 


004 131 


A1 A7AA ' 
\JIV /U4 




ICD 


or oPuTKin 

"L • KCWlffmJ 








1 A4 


1 A»^ 4 4 

1.03411. 






RrQ 
D^O 


1 7nt 

1 'U# 


tflO TP ton PDmi PM 




39Dc 


4 A1 ^%A 


A1 AAAA 






nuv 


OA DA 
ft U • nH 


sue I f^A^rvC 1 AUUr4C33 




37D3 


4 A4 A 
101634: 


A4 A^A4 


A/WV>3 
OOUUOC 




MAW 


1 33Kkn3 J tnl 


Sue 1 o 1 r^ 1 WW ~ nUTi 1 oDn 




3904 


4 A4 ^ 

101636 


AACO'S7 

OU3e3 / 


AA331 A « 






r M 1 r 


• PDDAD Pnt MT 




37DO 












FQOKin T'47PUM PKTQ^D 


tDFUTM) MOT AfTFPTPn 






4 A4 £A 0 

10164^ 


4 AAACA 
104430 










TDAP 


P tPDMDA 




4 A4 AAA 

101644 


AA4 A 4 C 

ooiei3 










• MUttU 


QAO 




4 A4 AAA 
101o40 


4 AVAAC* 

103403 










. MUnU 


T'C7PlJkl 




4 A4 ACA 
IOI63O 


At 4 7 VA 1 

Oil '36 










• MUKU 


PKTCCD 


3^D"» 


* A4 AC^ 

&01632 






4 7AA • 

1 'Of : 






• 1 AAD TP CPI FPTPn 






4 A4 AC^ 
10 1632 


4 AAAAA 

104400 










TOAD 


PtPl PI 




4A4 A<^ 

101034 


A 4 1 7A 4 

013/01 


4 A34 AA * 

102 loO 




nuv 


TX7DrDA<L 01 
1 0 /D^ n *0 1 1 


• DTPK IK> yCTA 






1 A1 AAA 


A4 A4 AO 

OlOlOc 






nuv 


Dl 03 
nil 


•CPT 10 PXPFPTPn 






1 A4 AAO 
iUlDOC 


AC07A3 

03e iQa 


AAAAA3 
000002 




old 


AdTTI D3 
vol 1 1 1 ne 


,CFT PAT DTT TN PVPFPTFA 
• bC I OU 1 Dl > in C 'V^CC I CU 






« A1 AAA 
lOlOCKt 


AOA4 AO 
020102 








04 D3 
HI |Nd 


•AAPC PyP m PFP'A 






4 A4 A7A 
1016f 0 


AA4 AAA 

001406 






DCU 


t 7^< 
I '3» 


.BD TP pm lAi rnfs 

;ON, Ir CUUML I U>S J 






4 A1 A73 


AACOV7 

003237 


AA33 4 A 1 
0022 14 




INL 


FATPl n 
r H 1 r LU 


• PDDno pm MT 

{CnffUn i.uuni 




3"» f f 


1 A4 A7A 
1010 10 








coouon 

CKNtlKU 


coofcin TV7nAT pyDOPr 


.TADF MAT AT RAT APTPD DPLITKtf^ 






1 A1 A7A 


4 AA ac:a 
10443O 










TDAP 






lUl rOU 


AA4 A4 A 
001616 










UAOA 


Q1 A 
^lU 




4 ni 7A3 


4 AV4 A4 * 










.WORD 


T3780T 




1 A1 7AA 
lUl f 04 


A4 CTAA < 
013304 










.UORD 


EXPREC 


conn 


4 m 7AA 






4 7^* • 
1 '3* : 






;LOOP IF SELECTED 






4 A4 7AA 

lui roe 


4 AAAAA 
104400 










TRAP 


CICLPl 


3701 


1 m 7m 
lUl ( xo 


A1 37AA 


4 A33AAI 




nuv 




J SET UP PACKET ADDRESS 




370c 


1 A1 71 A 


A1 37X7 
U12 ( 3 r 


AAA4 34 
000121 


4 A33A3 1 
102202 


MAVi 

nuv 


AAI TT7DO 
vol alio r no 


:SET UP RECORDS TO SPACE OVER 






4 A4 733 


nt 37T7 
OlA for 


1 A/VM A 
140010 


4 A33AA' 

1022D0 


MAU 

nuv 


A4AAAm TX7DKX 
vl4UUlUi lOfr^O 


:ACK,CVC*1. SPACE FORWARD COMMAND 


3tFO^ 


1 A1 7TA 


A1 AAA^ 


AAAAAA 


3CAt . 

c3U* : 


MAVi 

nuv 


n4 fl 1 3UOV K3 I 


t ISSUE COMMAND 




3 703 


1 m 7XA 


UU3c3 r 


1 A3V1 A< 


3^3 < • 


irn. 


1 3 1 UrK^ 


;BUMP TIMER 




37OO 


1 m 7AA 
101 f 4W 








UtUnT 


4 

1 


! DELAY ABOUT lOOUS 


»1.(PC)» 






A4 3737 


OUUUUA 








MOV 




mi 7A A 












.UORO 


0 




101746 


01S7P7 


002116' 








MOV 


L»OLY.(PC)» 




101752 


000000 










.WORD 


0 




101754 


005367 


177772 








DEC 


-6(PC) 




101760 


001375 










BNE 


. -4 




101762 


005367 


177756 








DEC 


22(PC) 




101766 


001367 










BNE 


. -20 


5987 


101770 


016501 


000002 




MOV 


TSSH(R5),R1 


sGET TSSR 





TEST 
TEST 



HARDWARE 
FUNC 



TION 



M16 
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5988 
5989 
5990 
5991 
5992 
5995 
5997 



5998 

5999 
6000 
6001 
6002 
6003 
6004 
6005 
6009 



6010 
6011 



6012 
6013 
6014 
6015 
6016 
6017 
6018 



101774 
102000 
102002 
102006 
102010 
102012 
102016 
102016 
102020 
102022 
102024 
102026 
102026 
102050 
102054 
102040 
102044 
102050 
102052 
1020S4 
102060 
102060 
102062 
102064 
102066 
102070 
102070 
102072 
102072 
102072 
102074 
102102 
102104 
102110 



032701 000200 
001755 

012702 000200 

020201 

001406 

005237 002214' 

104456 

001617 

104727- 

011736' 

104406 

013701 102306' 

013702 102310' 

042701 000077 

042702 000077 
020102 
003406 

005237 002214' 

104456 
001620 
103254' 
015364' 

104406 



104403 

023727 002214' 000017 
103402 

004737 017074' 



260 (: 



300$! 



BIT 
BEO 
MOV 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 

MOV 
MOV 
BIC 
BIC 
CMP 
BLE 
INC 

ERRHRD 



CKLOOP 
ENOSUB 



999*1 



CMP 
BLO 
JSR 



«SSR.R1 

252* 

♦SSR.R2 

R2.R1 

260 ( 

FATFLG 

ERRNO . T37SCF , PKTSSR 



T57CNT.R1 

T37CNU.R2 

#000077. Rl 

«O00O77.R2 

R1.R2 

300 ( 

FATFLG 

ERRNO. T37TIM.EXPREC 



FATFLG, •W. 
999$ 

PC.CKOROP 



6019 


102110 


004757 016350' 


JSR 


PC.TSTLOOP 


6020 


102114 


105002 


BCC 


163* 


6021 


102116 


000157 101044' 


JMP 


T37L00P 


6022 


102122 




165 »: 




6023 


102122 
102122 
102124 


104452 
005516 


EXIT 


TST 


6024 










6025 






IlOCAL STORAGE 




6026 






FOR THIS TEST 


6027 










6029 


102126 




.BLKB 


10-<.-TSV?£7> 


6031 


102150 




T57PACKET: 




6032 


102150 


100004 


.WORD 


100004 


f«55 


102152 


102140' 


.WORD 


T57DATA 


6054 


102154 


000000 


.WORD 


0 


6055 


102156 


000012 


.WORD 


10. 


6056 


102140 




T570ATA: 




6037 


102140 


102152' 


.WORD 


T57BFR 


6058 


102142 


000000 


.UORD 


0 



SEQ 207 



, CHECK FOR TSSR'S SSR SET 

;KEEP COUNTING UNTIL SET 

:SET UP EXPECTED 

iUAS EVERYTHING OK 

I BR. IF ALL IS WELL 
■ ERROR COUNT 

t SPACE FORWARD DIDN'T WORK OUT 

TRAP C»ERHRO 
.WORD 911 
.WORD T37SCF 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP C»CLP1 

{TIME FOR WRITE SPACING 

:TIME FOR WRITE RETRY SPACING 

{SETTING UP CONSTANTS . 

s SETTING UP CONSTANTS 

: CHECK FOR DIFFERENCE 

iBR. IF GOOD 9SS8 CHECK 8888 
t ERROR COUNT 

sTIME WAS NOT DIFFERENT ENOUGH 

TRAP C*ERHRO 
.WORD 912 
.WORD T57TIM 
.WORD EXPREC 

tLOOP IF SELECTED 

TRAP C*CLP1 
;<<<<<<<<<<<<< END SUBTEST >>>>>>>>>>>> 
L 10074: 

TRAP C*ESUB 
sis ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
;TRY TO DROP THE UNIT 



tOO WE NEED TO ITERATE TEST 
iBR. IF NO LOOP REQUIRED 
{EXECUTE AGAIN 

:ALL DONE THIS TEST 

TRAP C*EXIT 
.WORD L10073- 



; COMMAND PACKET FOR TEST 

; WRITE CHARACTERISTICS COMMAND, WITH , ACK 
{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 



Bi 
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SEQ 208 



6059 
6040 
6041 
6042 
6043 
6044 
6045 
6047 
6049 
6050 
6051 
t>052 
6053 
6054 
6056 
6058 
6059 
6060 
6061 
6063 
6063 
6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 
6078 
6079 
6080 
6081 
6082 
6063 
6084 
6065 
6066 
6067 
6068 
6069 
6090 
6091 
6092 
6093 
6094 
6095 
6096 
6097 
6098 
6099 



102144 
102146 
102150 
102152 



102234 
102240 
102240 
102242 
102244 
102246 

102250 
102260 
102260 
102262 
102262 
102264 
102266 



102270 
102270 
102271 
102272 
102274 



102276 
102300 
102302 
102304 



102306 
102310 
102312 



102514 
102402 
102451 
102546 
102630 
102700 
102755 



000024 
000000 
000000 



100006 
102270' 
000000 
000006 



100005 

003116- 

000000 

000000 



010 
200 
000000 
000000 



100205 
100605 
102205 
177777 



000000 
OOOOOO 
000000 



124 
124 
122 
120 
122 
124 
111 



141 

125 
105 
117 
111 
125 
154 



123 
122 
125 
102 
125 
154 



.WORD 20. 

.WORD O 
T370SU: .WORD 0 
T37BFR: .BLKW 25. 
I 

I WRITE SUBSYSTFM MEMORY COMMAND PACKET 



T57PK2: 



T370K3: 



T57RB: 
T37W6: .UORO 

.WORD 
T37SZ: .WORD 

.EVEN 

i 
I 



.BLKB 10 <.-TSV267> 

.WORD 100006 

.WORD T37BF2 

.WORD 0 

. WORD 6 . 

.BLKB lO-< . -TSV2C7» 

.WORD 100005 



FREE 

0 

0 



.BTTE 10 

.BrTE 200 

.WORD 0 

.WORD 0 



T37BF2 
T37BS0 
T37BS1 
T37S2: 
T37S3: 
I 

* .EVEN 

I TAPE MOTION PACKET COMMAND VALUES 

T37RN: .WORD 100205 

T37W0R: .WORD 100605 

TS7C0N: .WORD 102205 

.WORD 177777 



T37CNT 
T37CNU 
T370Lif 

!l0CAL text MESSAGES FOR TEST 



.WORD 0 
.WORD 0 
.WORD 0 



jLENGlM OF MESSAGE BUFFER 

I SELECT DRIVE 0 
iMESSAGE BUFFER 



I WRITE SUB STS MEM COMMAND. AND ACK 
lAOORESS OF SELECT BLOCK DATA 

iSI2E OF DATA PACKET 



{REREAD COMMAND. AND ACK 
I ADDRESS OF WRITE BUFFER 
iSIZE OF BUFFER (EXTENT) 



iBSELO AREA 
iBSELl AREA 
iSEL 2 AREA 
(DATA AREA 



(REREAD DATA (NEXT) 
(REREAD DATA RETRY 
(WRITE CONT INDUS 
lENO OF DATA 



(TAPE TIMER COUNTER STORAGE AREA 
:TAPE TIMER COUNTER STORAGE AREA 
(DELAY COUNTER 



160 T37WNG: .ASCIZ ' T«p« Position Incorrect Aft«r REREAD Previous (OPP-l 



T37R0F 
T57RRF 
T37SC: 
T37L0R 
T37WDF 
T37LOO 



.ASCIZ 'TSSR Incorrect After READ DATA Comnand' 

.ASCIZ 'REREAD Previous (Space Reverse. Read Forxard) CoMund Fa' led 

.ASCIZ 'POSITION (Space Co«nmand) Failed. TSSR Not Correct* 

.ASCIZ 'RIB NOT SET AFTER READ REVERSE INTO POT' 

.ASCIZ TSSR Not Correct After Illegal Mode Bits Sef 

. ASCIZ 'Illegal Mode Bits. Failed To Set ILC Bit In XSTO 



tist \ 




MACRO HI 115 01 FEB 84 


6100 






« AC 

103 


Ic^ 


TV7CCD 


. n3Li2 


«>101 


lUAV re 




lc3 


lc3 


1 3 r HUc : 






1 AVf ill 


1 

Ic* 


1 Al 
1*1 


1 4^rt 
IDV 


1 3 f oU 1 ! 


AC^T7 


■ .C^ 






lee 


111 

111 


1 3 f I in 


AC^T 7 


6 10-; 






1 AC 


lee 


1 3rcU 1 


. H3l,K 


61U5 






le3 


1 5V 

lc3 


1 3 f in; 




6106 




Ice 


14^ 
1*3 


1^7 
lO ' 


1 3 'KWn 


4CrT7 
. H3L 1^ 


6107 






1 A* 

IVI 


11^ 

1 13 


TT7Bur' 
1 ^ 'firic 


• 1^ 


6ioa 




1 34 
le* 


t 3V 
IcO 


1 3X 
lc3 




• 1^ 


6109 




1 n4 
iu* 


1^3 
lOc 


1^1 
131 


1 3 r vr w 


flQrT7 
■ H3l,l£ 


6110 




Ic* 


le3 


f 3V 

le3 


1 3 'WIU 


ncr T 7 


olll 




lc4 


f 3T 
le3 


1 3V 

le3 


1 3 f MUL 




6113 


1 AAA7A 




leD 


IVd 




4^rT7 
■ A£ 


6115 




1 34 

it* 


1 3X 
lc3 


lrt3 
IVc 


1 3 'Dn ; 


• fl3U A^ 


6114 




1 37 
AC ' 


1 33 
lee 


lit 
111 


1 3 r M33 


• H3tK 


6115 


lAAXI 1 


1 33 
&CC 


14^ 
1*3 


141 
1* 1 


1 3 ' 


4CrT7 
• H3V. K 


6116 






14^ 
1*3 


141 
1*1 


1 3 'Ll^ 




6117 




1 33 


14S 

1*3 


IDO 


T57PeP 


: .ASCIZ 


6116 




13P 
ACC 


14S 


141 
A^ A 


T57TRL 


: .ASCIZ 


6119 




1 37 


1 33 
ACC 


111 
AAA 


T57NEF 


: .ASCIZ 


6120 


IV* ' c ' 


1 34 
Ic* 


1 3V 
1C3 


1 3X 

Leo 


T57SCF 


: .ASCIZ 


6121 




1 34 
Ic* 


1 3V 
lc3 


1 3X 
leO 


T57TSA 


: .ASCIZ 


6122 




1 3A 

Ic* 


1 3* 

lc3 


f 5V 

leo 


T57URf 


: .ASCIZ 


6123 


f A^ f 

lU3l*e 


1 AA 


1 A 1 
1*1 


1 iLA 

lo* 


T57DTA 


: .ASCIZ 


6124 


lV;3c*d 


f A^ 


1 ^C 
103 


1 

130 


TST57I0: 


6125 












.EVEN 


6126 










1 ♦ 




6127 










t 




6126 










1 ROUTINE TO RE< 


6129 










lURITE 


SUeSYSTI 


6130 










t 




6131 










1 




6132 














6133 


1V3CO* 








T57REST : 


6134 


IV^CO* 










SAVREG 


6135 


XV^c r V 


At 37A1 
Vic 'VI 


1 A31 YA* 

lUel3v 






HOV 


6136 


t OS974 


At 3731 
Vic ' cl 


1 nnAn4 
luuvu* 






fiOV 


6137 




rtl 3731 
Vic ' cl 


1 A3 f 4rt • 

lUel*v 






MOV 


6136 


xv^ov* 


fm^n3i 
^A/^vc X 








CLR 


6139 




Ol 3731 
Vic 'Cl 


wwie 






MOV 


6140 




A1 3731 
Vic ' c 1 


1 A31 C3> 
IVc 13e 






MOV 


6141 




VV3VC1 








CLR 


6142 




Al 3731 
Vic ' c 1 


AAAA3A 






MOV 


6143 


iV30c* 


AA^A3f 
W3Vc 1 








ClR 


6144 


IVOOcO 


A1 371 1 
Vie '11 


AAAAAA 






MOV 


6145 


1V3 


rtl 37A3 
Vie ' Vc 


AAAAVA 






MOV 


6146 




Ol 97A3 

V le ' oc 


1 77777 
A ' ' ' ' ' 


1 rt3 1 <\3 > 
IVc 13c 


64«: 


MOV 


6147 


105344 


rtrt^743 
^Al^ ' *c 








TST 


6146 




vec ' vc 


rtrtrtrtrtrt 

vwwv 






CMP 


6149 


105352 


001571 








BNE 


6150 


105354 


000207 








RTS 


6151 














6152 














6153 


105556 








T57RT2 




6154 


105356 










SAVREG 


6155 


105562 


012701 


102240- 






MOV 


6156 


105566 


012721 


100006 






MOV 



CI 



18:55 



SEO 209 



REREAD COMMAND Net Accepted' 

TSSR Net Cerreet After URITE DATA RETRY Command. At BOT' 

Tap* Not At eOT After REWIND Coinmend (BOT Not Set In XSTO) 
'URITE DATA RETRY "S Erase Tape Not Long f.r\o*j^' 
'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 
■ TSSR Net Correct After REREAD COMMAND Reject 
•ReMind (POSITION) CoMnand Not Accepted' 
•RAM Error. Correct Data Pattern Not In Ram' 
■TSSR Init. Foiled After REREAD COMMAND' 
•Drive 7 Select Failed To Set "QFL" In TSSR' 
'TSSR Not Correct After REREAD DATA ConMiand. SUB Bit Set' 
' TSSR Not Correct After REREAD DATA Cotmiand 

CVC Set. Oidn"t Reset VCK In Meaaaoe Buffer' 
' TSBA Not Correct After REREAD DATA Coawiand' 
'URITE SUBSYSTEM MEMORY Conwiand Not Accepted (RAM Read)' 
'Reading Long Record Foil«d To Set RLL Bit In XSTO' 
'Reading Long Record Failed To Set RLS Bit In XSTO' 
'Residual Byte Count Incorrect After Short Record Read 
'Reading Long Record Failed To Give Tape Status Alert' 
'URITE DATA RETRY. At First Record. Failed To Set RIB B't XST5 
'TSSR Not Correct After SPACE RECORDS Command' 

TSSR Not Correct After URITE DATA RETRY. Into BOT' 
'TSSR Not. Correct After URITE DATA RETRY Command' 
'Data Compare Error, Data Read From Tape Not Equal To Urittcn- 
.ASCIZ 'Function T'ming' 



iTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;m memory COMMAND 



♦T57PACKET.R1 
•100004. (Rl). 
•T37DATA,(R1). 

(Rl)» 

•10. .(Rl). 

♦T578FR.(Rl)f 

(Rl)» 

•20. .(Rl). 
(Rl). 
»0.(R1) 
•24. .R2 

•177777. T57BFq(R2) 

(R2) 
•O.R? 
641 
PC 



sSAVE THE REGISTERS 

jSTART OF THE PACKET 

;URITE SUBSYSTEM MEM. WITH ACK, 

tAOORESS OF CHARAISTICS DATA BLOCK 

(EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

J ADDRESS OF MESSAGE BUFFER 

; LENGTH OF MESSAGE BUFFER 

s SELECT DRIVE ZERO 

jNUMBER OF LOCATIONS TO BE CLEARED 

I ALL ONES TO MESSAGE BUFFER 

jNEXT LOCATION 

J AT END OF LOOP YET 

(KEEP GOING UNTIL DONE 

I RE TURN 



I SAVE THE REGISTERS 
•T57PK2.R1 tSTART OF THE PACKET 

•100006, (Rl)» lURITf SUBStSTEM MEM. UITM ACK, 



INI mm mn^ • ^^^^^ "^^^ ^ ^^^^^ 



6157 


105572 


012721 


102270' 


MOV 


•T57Br2.(Rl). 


6158 


105576 


005021 




CLR 


(Rl). 


6 IS* 


105400 


012721 


000006 


MOV 


•6..(R1). 


6160 


105404 


005021 




CLR 


(Rl)' 


6161 


105406 


012701 


1022 7r>' 


MOV 


«T578r2.Rl 


6162 


105412 


005021 




CLR 


(Rl). 


616S 


105414 


005011 




CLR 


(Rl) 


6164 


105416 


000207 




RTS 


PC 


6165 


105420 






T37PT5: 




6166 


105420 






SAVREG 




6167 


105424 


012701 


102260' 


MOV 


#T57PK5.Rl 


6166 


105430 


005021 




CLR 


(Rl). 


6169 


105452 


005021 




CLR 


(Rl)» 


6170 


105434 


005021 




CcR 


(Rl). 


6171 


105456 


005011 




CLR 


(Rl) 


6172 


105440 


000207 




RTS 


PC 


617S 


105442 
105442 
105442 


104401 




ENOTST 




6174 


105444 






ENOMOO 





SEQ 210 



(ADDRESS Of DATA BLOCK 

lEXTENOEO ADDRESS 

•SIZE or DATA BLOCK lU BfTtG 

iPOINT TO DATA SEL AREA 



I RE TURN 

I SAVE REGISTERS 

iSET UP POINTER ADDRESS 

J COMMAND SPACE 

jADDRESS OF DATA BLOCK 

I EX TENDED ADDRESS 

I SIZE or DATA TRANSFER BLOCK 

I RE TURN 

L10075: 

TRAP C»ETST 



EL 



TSVfe PARAMETER COOING MACRO Ml 113 
TEST 9: FUNCTION TIMING 

1 

7 
12 
18 

19 105444 
10S444 

20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
30 
31 



01 FEB 84 18:55 



SEQ 211 



TSV6: 



.TITLE TSV6 - PARAMETER CODING 



BGNMOO TSV6 



.SBTTL HARDWARE PARAMETER COOING SECTION 



THE HARDWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUIi.0 P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



32 


105444 








105444 


000010 






105446 






33 








34 


105446 








105446 


000031 






105450 


105466' 






105452 


160010 






105454 


177776 




95 


105456 








105456 


001031 






105460 


105522" 






105462 


000000 








UVU 1 f o 




36 








37 


105466 








105466 






38 


105466 


104 


105 


39 


105522 


111 


116 


40 


105546 


111 


116 


41 








42 








43 








44 








45 








46 








47 








48 








49 








50 








51 








52 








53 


105576 








105576 


000003 






105600 






54 








55 


105600 








105600 


001130 





L«HAR0: 



BGNHRD 

.WORD L10075-LtHARD/2 



L10075! 
126 HPMl : 
124 HPM2: 
124 HPH3: 



GPRMA HPMl. 0.0. 160010. 177776. YES 

.WORD TtCOOE 

.WORD HPMl 

.WORD TILOLIM 

.yORD T»HILIM 

GPRMA HPM2.2.0.0.776.tES 

.WORD T$CODE 

.WORD HPM2 

.WORD TtLOLIM 

.WORD TIHILIM 

iGPRMD HPM3. 4, 0.340.0... YES 
ENOHRD 
.EVEN 

•ASCIZ DEVICE ADDRESS (TSBA/TSDB) ■ 

.ASCIZ 'INTERRUPT VECTOR 

.ASCIZ 'INTERRUPT PRIORITY 
.EVEN 

.SBTTL SOFTWARE PARAMETER COOING SECTION 



(GET TSBA/TSDb REGISTER ADDRESS. 



(GET VECTOR ADDRESS. 



sGET INTERRUPT PRIORITY, 



THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. TmE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH TME OPERATOR. 

' BGNSFT 

.WORD L 10076 -L»S0FT/2 



LISOFT-; 



GPRML SPMl.O. -l.YES 
GPRML SPM4.2. l.YES 
.WORD TtCODE 



J GET TRANSPORT TEST FLAG 
: GET ITERATION CONTROL. 



TSV6 PARAMETER COOING MACRO M1113 
SOFTWARE PARAMETER COOING SECTION 



01 FEB 84 18:55 



105602 
105604 

56 
57 

56 105606 
105606 

59 

60 

61 105606 

62 1056S6 
63 

64 
65 
66 
67 
68 
69 
70 
71 
72 
73 

74 105666 

75 

76 

77 105666 

78 

79 

80 

81 

82 105670 

105670 
105672 
105674 

83 105674 
84 

85 
86 
87 

88 105674 

89 105674 
105674 
105676 
105700 

90 105700 

91 105702 

92 105704 

93 105706 
105706 

94 105706 
95 

96 



105656 
177777 



105 
111 



116 
116 



000000 
000000 



000000 
000003 

172522 
000224 
000240 



000001 



L 10076: 



101 SPMl: 
110 SPM4: 
jSPM6: 
;SPM7: 



.WORD 

.WORD 

GPRMD 

GPRMO 

ENOSFT 

.EVEN 



.ASCIZ 
.Ac:iZ 
.ASCIZ 
.ASCIZ 
.SBTTL 



F 1 



SPM4 
1 

SPM6. 4. 0.7777, 0.7777. YES 
SPM7.6.0. 7777,0. 7777. YES 



•ENABLE TRANSPORT TESTS 
'INHIBIT ITERATIONS 
•PER TEST ERROR LIMIT 
■PER UNIT ERROR LIMIT 
PATCH AREA 



SEQ 212 



J GET LOCAL ERROR LIMIT 
i GET GLOBAL ERROR LIMIT 



: FINALLY A GENEROUS PATCH AREA. 

s AND AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAO BIT7" MACK 

; DESCRIBED IN "SUPPRG.MEM" (FOR REV C). 

t 



PATCH: 
i 



LILASTi 



.BLKU 
.BLKW 



32. 
1. 



.IF NZ..&377 

!577.l 
.ENDC 
LASTAD 
.EVEN 
.WORD 
.WORD 



ENOMOD 
.SBTTL 



J SET LAST USED ADDRESS. 



0 
0 



HARD COOED P TABLE 
DIAGNOSTIC IS PRE PARAMETERIZED PER THIS TABLE 
1 



L10077! 



LlOlOl' 



BGNSETUP 
BGNPTAB 
.WORD 0 
.UORD LlOlOl 

.WORD 
.WORD 
.UORD 
EN0PTA6 

ENOSETUP 

.ENO 



./2-1 

1 72522 
224 
PR 105 



TSV6 


PARAGE TLR 


CODING 


MACRO MUM 01 FEB 


64 18:55 


StMBOL 


TABL^ 














AODSSR 


012016RG 


002 


CIAU • 


000052 




DEVORQ 


AOR 


000020 


G 




CtAUTO' 


000061 




DE^ 'IRD 


AMBTSS 


006525R 


002 


C*BRK • 


000022 




DEVNXR 


ASSEMB- 


000010 






CtBSEG* 


000004 




DEVONL 


A1716 • 


000003 






ctBsue- 


000002 




DEVSUM 


BADDAT 


003150RG 


002 


CICEFG- 


000045 




DFPTBL 


BAOSSR 


015570RG 


002 


CICLCK- 


000062 




DIACnC- 


BDVPCR- 


177520 


G 




CICLEA- 


000012 




DICED ■ 


BENBSU 


002222RG 


002 


C»CLOS' 


000035 




OSBINT 


BIE 


040000 






CICLPl- 


000006 




DUAD12 


BITO • 


000001 


G 




CJCVEC- 


000036 




DUFLG 


BITOO ■ 


000001 


G 




C»DCLN" 


000044 




DUMMY 


BITOl - 


000002 


G 




CIDODU- 


000051 




EF.CON- 


BIT02 - 


000004 


G 




CIORPT- 


000024 




EF.NEW- 


BIT03 - 


OOOOlO 


G 




C»DU ■ 


000053 




EF.PUR- 


Bn04 • 


000020 


G 




C»EDIT« 


000003 




EF.RES- 


BIT05 - 


000040 


G 




CIERDf • 


000055 




EF.STA- 


BIT06 • 


000100 


G 




C»ERMR- 


000056 




EMAXOU 


BIT07 . 


000200 


G 




OERRO- 


000060 




EN 


BIT08 - 


000400 


G 




CIERSF. 


000054 




ENAINT 


BIT09 • 


001000 


G 




CIERSO- 


000057 




ENVIRN 


BITl - 


000002 


G 




C»ESCA- 


000010 




EPRTSU 


BITIO • 


002000 


G 




CIESEG- 


000005 




EPRTl 


BITll - 


004000 


G 




CtESUB- 


000003 




EPRT2 


BIT12 . 


010000 


G 




CtETST. 


000001 




ERCM 


BIT15 . 


020000 


G 




CIEXIT- 


000032 




ERRHI 


BIT14 • 


040000 


G 




CIGETB- 


000026 




ERRK 


BIT15 - 


lOOOOO 


G 




CtGETU* 


000027 




ERRLO 


BITS - 


000004 


G 




CIGMAN- 


000043 




ERRNO - 


BIT3 ■ 


000010 


G 




C»GPHR' 


000042 




ERRVEC- 


BIT4 • 


000020 


G 




CIGPLO- 


000030 




ERTABE 


BITS . 


000040 


G 




CIGPRI- 


000040 




ERTABL 


BIT6 - 


000100 


G 




CIINIT- 


000011 




ESUM 


BIT7 . 


000200 


G 




CIINLP" 


000020 




EVL 


BIT8 ' 


000400 


G 




CIMANI" 


000050 




EXBCNT- 


BIT9 - 


001000 


G 




CIMEM " 


000031 




EXPBRE 


BOE 


000400 


G 




CIMSG • 


000023 




EXPO 


BRINIT 


00444 7R 


002 


C»GPEN" 


000034 




EXPGOT 


BSELO ■ 


000000 






CIPNTB* 


000014 




EXPGT2 


BSELl • 


000001 






C»PNTF. 


000017 




EXPMSG 


CHKAMB 


015734R 


002 


C»PNTS" 


000016 




EXPREC 


CHKMAN 


0204 OORG 


002 


CIPNTX' 


> 000015 




EXTA 


CHKTSS 


016226R 


002 


ciaio • 


• 000377 




EXTEND 


CKDROP 


017074R 


002 


C*R06U' 


000007 




EXTFEA 


CKEMAX 


016774R 


002 


CIREFG- 


000047 




E*END - 


CKMSG 


011250RG 


002 


CIRESE- 


000033 




E«L0A0- 


CKMSG2 


011370RG 


002 


CIREVI" 


000003 




FATERR- 


CKRAM 


011004RG 


002 


C$RFLA- 


000021 




FATFLG 


CKRAM2 


0U114RG 


002 


C»RPT - 


000025 




FERCM 


CMDPKT 


021070RG 


002 


CtSEFG" 


000046 




FIFEXP 


CMPMEM 


017560R 


002 


C$SPRI> 


000041 




F IF IMS 


CONFIG 


017142R 


002 


CISVEC" 


000037 




FIF2MS 


COUNT 


002302RG 


002 


CITPRI- 


000013 




FILLME 


CSRAOD 


002200RG 


002 


DATA 


002304RG 


002 


FNOINT 


CTAB 


003156RG 


002 


DATASC 


0201 32R 


002 


FORCER 


CTABE 


0031 70RG 


002 


DEBUGM 


011522R 


002 


FREE 


CTABM 


0031S6RG 


002 


OEVCNT 


0022 12RG 


002 


FREEMI 



SEQ 213 



023226R 


002 


FRESIZ 


003120RG 


002 


INTFLA 


016035R 


002 


023145R 


002 


FUSI 


004107R 


002 


INTMAS 


0160 S4R 


002 


023063R 


002 


F$AU ' 


000015 




INTR 


016106RG 


002 


023013R 


002 


F$AUTO- 


000020 




INTREC 


00^2 16RG 


002 


022756R 


002 FIBGN - 


000040 




INTV^C 


016036R 


002 


0021S0RG 


002 


FICLEA- 


000007 




INTX 


0042 70R 


002 


000000 




FlOU ■ 


000016 




INVERT 


021014RG 


002 


000001 




FIEND • 


000041 




lOKCKI- 


000200 




016074R 


002 


F$HARD- 


000004 




lOKSTP- 


000001 




004633R 


002 


FIMU • 


000013 




IPRI 


0C2204RG 


002 


003104RG 


002 


FIINIT- 


000006 




ISR 


000100 G 




0030540 


002 


FIJMP « 


000050 




IVEC 


002202RG 


002 


000036 G 




FIMOO - 


000000 




IXE 


004000 G 




000035 G 




FIMSG - 


000011 




I*AU - 


000041 




000034 G 




F»PROT- 


000021 




I*AUTO- 


000041 




000037 G 




F»PgR - 


000017 




I»CLN • 


000041 




000040 G 




F»RPT - 


000012 




I»DU • 


000041 




0166 7 IR 


002 


FISEG • 


000003 




I«HRD - 


000041 




000000 




FISOFT- 


000005 




IIINIT- 


000041 




016042R 


002 


FISRV • 


000010 




IIMOD - 


000041 




020530R 


002 


FISUB ■ 


000002 




IIMSG - 


000041 




002172RG 


002 


F»SU - 


000014 




I$PROT» 


000040 




006166R 


002 


FITEST- 


000001 




I»PTAB- 


000041 




006225R 


002 


GDDAT 


003152RG 


002 


I$PUR - 


000041 




01162SR 


002 


GERRMA 


002166RG 


002 


IIRPT • 


000041 




002230RG 


002 


GETPAT 


0200 74RG 


002 


IISEG • 


000041 




016650R 


002 


GETSEL 


020156RG 


002 


I»SETU- 


000041 




002232RG 


002 


GICNTO- 


000200 




IISFT . 


000041 




001620 




GIDELM- 


000372 




I»SRV ■ 


000041 




000004 G 




GIDISP- 


000003 




ItSUB ' 


000041 




003370R 


002 


G»EXCP- 


000400 




I»TST - 


000041 




OO3170R 


002 


G»MILI- 


000002 




J$JMP . 


000167 




016652R 


002 


GtLXI- 


000001 




KIPARO- 


172340 




000004 G 




GINO - 


000000 




KIPARl- 


172342 




000010 




GIOFFS- 


000400 




KIPAR2- 


172344 




015372RG 


002 


G»OFSI- 


000376 




KIPAR3- 


172546 




002224RG 


002 


GtPRMA- 


000001 




KIPAR4- 


172350 




00452SR 


002 


G<PRMD> 


000002 




KIPAR5- 


172352 




00455 7R 


002 


G»PRML- 


000000 




KIPAR6- 


172354 




0023 14RG 


002 


GIRADA- 


000140 




KIPAP7- 


172356 




015S64RG 


002 


GIRAOB- 


000000 




KIPDRO' 


172300 




005600R 


002 


GIRAOO- 


000040 




KIPDRl- 


172302 




005576R 


002 


GIRADL- 


000120 




KIPDR2- 


172304 




002220RG 


002 


GtRADO- 


000020 




KIPDft3- 


172306 




002100 




GIXFER- 


000004 




KIP0R4- 


172310 




000035 




G»YES ■ 


000010 




KIP0R5- 


1'2312 




000060 




HIADDR- 


001400 




KIPDR6- 


172314 




002214RG 


002 


MOE 


100000 G 




KIP0R7- 


172316 




011612R 


002 


MPMl 


105466R 


002 


KTENAB 


003126RG 


002 


012060RG 


002 


HPM2 


105522R 


002 


KT-^LG 


0C3124RG 


002 


0121 52R 


002 


MPM3 


105546R 


002 


KTINIT 


0206 16R 


002 


012201R 


002 


IBE 


010000 G 




KTOFF 


017166R 


002 


017314R 


002 


IDU 


000040 G 




KT3N 


017150R 


002 


004205R 


002 


lER 


020000 G 




LE^RMA 


002 164 RG 


002 


0021 70RG 


002 


IFAULT 


004246R 


002 


LI5TAL- 


000001 




0031 16RG 


002 


INCERK 


016736R 


002 


L0£ 


040000 G 




003122R 


002 


INTCPC 


016040R 


002 


LODPCN 


0022 lORG 


002 
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LOOPCO 


013016R 


002 


LlOOOl 


0021 70R 


002 


L10073 


105442R 


LOOPFL 


003154RG 


002 


L 10002 


0055 74R 


002 


L 100 74 


1020 72R 


'.OT 


000010 G 




L 10003 


011754R 


002 


L 10075 


105466R 


L»ACP 


002110RG 


002 


L1O0O4 


011752R 


002 


L10076 


105606R 


L»APT 


002036RG 


002 


L 10005 


011770R 


002 


L10077 


105700R 


L»AU 


022202RG 


002 


L 10006 


011776R 


002 


LlOlOl 


105706R 


L»AUT 


002070RG 


002 


L10007 


012014R 


002 


MEMAOO 


013644RG 


L»AUTO 


022406RG 


002 


LlOOlO 


0120 S2R 


002 


MEMCK 


021106RG 


L»CCP 


002106RG 


002 


LlOOll 


012056R 


002 


MENASC 


02054 7R 


L»CLEA 


022466RG 


002 


LI0012 


012130R 


002 


MENERR 


0202 74R 


L>CO 


002032RG 


002 


L10013 


012300R 


002 


MENRES 


0203 76R 


L *OEPO 


00201 IRG 


002 


L 10014 


013014R 


002 


MMRO ■ 


170200 


LtOESC 


003402RG 


002 


L10015 


01364 2R 


002 


MMVEC ■ 


000250 


L»DESP 


0020 76RG 


002 


L 10016 


013664R 


002 


MSA.FR- 


000006 


L»DEVP 


002060RG 


002 


L10017 


015370R 


002 


MSA.NO- 


000000 


L»DISP 


002124RG 


002 


L 10020 


015376R 


002 


KSA.Nft- 


000004 


L»DLY 


002116RG 


002 


L 10021 


015404R 


002 


MSA.VO" 


000002 


L»OTP 


00204 ORG 


002 


L 10022 


0154 16R 


002 


MSGEXP 


012034RG 


L»OTyp 


0020 34RG 


002 


L 10023 


01S440R 


002 


MSGLOO 


012754RG 


LlOU 


022300RG 


002 


L 10024 


015466R 


002 


MSGSTA 


012240RG 


L»DUT 


0020 72RG 


002 


L 10025 


015626R 


002 


MSGSUB 


013632RG 


L»OVTY 


003374RG 


002 


L 10026 


016136R 


002 


MS. ATT» 


000006 


LIEF 


0020S2RG 


002 


L 10030 


022132R 


002 


MS. EXT" 


000200 


LtENVI 


002044RG 


002 


L 10031 


0222 76R 


002 


MS.RSD- 


000001 


LtETP 


002102RG 


002 


L 10032 


022404R 


002 


MS.RSF- 


000020 


L»EXP1 


002046RG 


002 


L10033 


022464R 


002 


MS.RST" 


000010 


LtEXPA 


002064RG 


002 


L 10034 


022512R 


002 


NBA 


002000 


L$EXP5 


002066RG 


002 


L 10035 


022754R 


002 


NEUPAS 


02164 OR 


L tHARO 


10S446RG 


002 


L 10036 


0321 12R 


002 


NOOEV 


003106RG 


L»HIME 


002120RG 


002 


L 10037 


023740R 


002 


NOINIT 


004325R 


LIHPCP 


002016RG 


002 


L 10040 


024462R 


002 


NOINTR 


004211R 


LJHPTP 


002022RG 


002 


L10041 


025206R 


002 


NOITS 


002162RG 


LtHU 


002150RG 


002 


L 10042 


026030R 


002 


NOMAN 


0204 34R 


L$ICP 


002104RG 


002 


L10043 


041220R 


002 


NOMEM 


005450R 


L$INIT 


021406RG 


002 


L 10044 


033514R 


002 


NP.IR - 


000200 


LILADP 


002026RG 


002 


L 10045 


035140R 


002 


NP.LOO- 


000040 


LILAST 


10S674RG 


002 


L 10046 


035534R 


002 


NP.OUT- 


000100 


LtLQAD 


002100RG 


002 


L 10047 


036220R 


002 


NP.WRP- 


000020 


L$LUN 


002074RG 


002 


L 10050 


046576R 


002 


NSI 


004142R 


L*MREV 


0020S0RG 


002 


L 10051 


0421 12R 


002 


NSINIT 


0O4377R 


LtNAME 


002000RG 


002 


L 10052 


042724R 


002 


NUL 


00451 7R 


L$PRIO 


002042RG 


002 


L 10053 


052664R 


002 


NULCR 


004520R 


L*PROT 


021376RG 


002 


L 10054 


047452R 


002 


NXM - 


004000 


L$PRT 


002112RG 


002 


L 10055 


050262R 


002 


NXMFLG 


003130RG 


L$REHP 


002062RG 


002 


L 10056 


051076R 


002 


NXMHI 


003134RG 


L*REV 


002010RG 


002 


L10057 


055700R 


002 


NXMLO 


003132RG 


L IRPT 


022S14RG 


002 


L 10060 


054342R 


002 


NXMTST 


021302R 


LISOf T 


105600RG 


002 


L10061 


063262R 


002 


NXR 


003730R 


L»SPC 


0020S6RG 


002 


L 10062 


060336R 


002 


NXRERR 


005544RG 


L » SfCP 


002020RG 


002 


L 10063 


073222R 


002 


NXRX 


003767R 


L»SPTP 


002024RG 


002 


L 10064 


064354R 


002 


NXTU 


021652R 


LISTA 


002030RG 


002 


L 10065 


0654 54R 


002 


OFL 


000100 


L«SU 


002160RG 


002 


L 10066 


066276R 


002 


ONEFIL- 


000000 


LITEST 


002114RG 


002 


L10067 


067200R 


002 


0»APTS- 


000000 


L»TIML 


0020 14RG 


002 


L 10070 


101006R 


002 


0«AU ' 


000001 


t.»UNIT 


002012RG 


002 


L 10071 


074316R 


002 


OtBGNR- 


000001 


L 10000 


0021S6R 


002 


L 10072 


07S400R 


002 


OtBGNS- 


000001 
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002 


otou • 


000001 




PRIASC 


0145S5R 


002 


002 


OtERRT- 


000000 




PSTS2U 


005144RG 


002 


002 


0»GNSU> 


000001 




PUNIT 


0221 »4R 


002 


002 


0»POIN- 


000001 




PU.011> 


000021 




002 


OISETU- 


000000 




PU.013- 


000022 




002 


PASRPT 


021704R 


002 


PU.022- 


000020 




002 


PATCH 


105666RG 


002 


PU.NOP* 


000000 




002 


PATOAT 


0201 30R 


002 


PU.NOl- 


000023 




002 


PC. ERA - 


002400 




PU.ROE* 


000024 




002 


PC.IEP- 


002000 




PU.ROR* 


000001 




002 


PC. NOG- 


001000 




PU.ROS- 


000005 






PC. REL- 


000000 




PU.RFI- 


000003 






PC.REW- 


000400 




PW.UCT- 


000006 






PKBCNT- 


000006 




PW.Wfl- 


000004 






PKHI " 


000004 




PU.WFM- 


000007 






PKLOU • 


000002 




PW.WMI- 


000010 






PKTADO 


007444R 


002 


PW.UNP- 


000011 




002 


PKTFRM 


007406R 


002 


PU.UTR- 


000002 




002 


PKTGET 


011754RG 


002 


P.ACK • 


100000 




002 


PKTMES 


012000RG 


002 


P.CMO ■ 


000037 




002 


PKTRAM 


004735RG 


002 


P.CONT- 


000012 






PKTSSR 


011736RG 


002 


P.CVC • 


040000 






PNT 


001000 G 




P.FMT - 


000140 






PRAMPK 


013666R 


002 


P.FORM« 


000011 






PRASC 


014415R 


002 


P.G6TS- 


000017 






PR6EXP 


015S60R 


002 


P.IE « 


000200 






PRBMSG 


015226R 


002 


P.INIT- 


000013 




002 


PRBREC 


015362R 


002 


P.MOOE- 


007400 




002 


PRBTOT 


015313R 


002 


P.OPP • 


020000 




002 


PRBYTE 


015012RG 


002 


P.POSI- 


000010 




002 


PRI 


002000 G 




P.REAO- 


000001 




002 


PR I ADD 


010050R 


002 


P.SU8 - 


010000 




002 


PR I AO 


010120R 


002 


P. WRIT- 


000005 




002 


PRIBXO 


007502RG 


002 


P.URTC" 


000004 






PRIEQU 


007750R 


002 


P.URTS" 


000006 






PRIPKT 


007260RG 


002 


QVP 


002176RG 


002 




PRIRAM 


007756R 


002 


RAMASC 


014046R 


002 




PRITAD 


010164R 


002 


RAMOAT 


002234RG 


002 


002 


PRITSS 


005632R 


002 


RAMERR 


0154 OORG 


002 


002 


PRITO 


010246R 


002 


RAMEXP 


015420RG 


002 


002 


PRITl 


010311R 


002 


RAMFOR 


010006R 


002 


002 


PRIXOR 


007632RG 


002 


RAMSIZ 


002274RG 


002 




PR 100 • 


000000 G 




RAMTAD 


015406RG 


002 


002 


PRIOl - 


000040 G 




RCVHIA 


0022 76RG 


002 


002 


PR 102 - 


000100 G 




RCVLOA 


002300RG 


002 


002 


PRI03 - 


000140 G 




RDERR 


C05176R 


002 


002 


PRI04 • 


000200 G 




RECMSG 


002460RG 


002 


002 


PR 105 • 


000240 G 




RECV 


002226RG 


002 


002 


PRI06 ■ 


000300 G 




REGSAV 


020040R 


002 


002 


PRI07 ■ 


000340 G 




RE TERR 


005362R 


002 


002 


PRMESS 


014132R 


002 


REUIW 


010704RG 


CO^ 




PRMNO 


002312RG 


002 


RMCHBE- 


000167 






PRMSGE 


014442RG 


00^ 


RMCHEN- 


000200 






PRMSGO 


014622R 


002 


RMMSG8- 


000215 






PRMSGl 


014667R 


002 


RMMSGE- 


000234 






PRMSG2 


014725R 


002 


RMPKTB* 


000201 






PROASC 


014S10R 


002 


RMPKTE« 


000210 
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f<MR ■ 


010000 




RUPACK 


OllOOOR 


002 


SC 


100000 




SCE " 


020000 




SCHERR 


0052 70R 


002 


SCHE 


00500 3R 


002 


SOELAt 


010S50R 


002 


SELASC 


020542R 


002 


SELDAT • 


000004 




SEL2 • 


^^^^^^^^^^ 

000002 




SE TMAP 


017210R 


002 


SETU 


021736R 


002 


SFFnSu 


011772RG 


002 


SFHERR 


0036 75R 


002 


SFIERR 


005642R 


002 


SFIMSG 


011724RG 


002 


Sr PTBL 


002160RG 


002 


SIFLAG 


003146RG 


002 


SIMSG 


011656R 


002 


SKIPT 


003372R 


002 


SOf INI 


015664RG 


002 


SPACE 


010356RG 


002 


SPMl 


105606R 


002 


SPn4 


1056 36R 


002 


SRO • 


177572 




SRI • 


177574 




SR2 ■ 


177576 




SR3 ■ 


172516 




SSR " 


000200 




STATCO 


012302R 


002 


SVCGSL" 


000000 




SVCINS* 


000000 




SVCSUB" 


000001 




SVCTAG" 


000000 




SVCTST" 


000001 




SILSYM* 


01 0000 




SO. lOB' 


000010 




50. IFB" 


000002 




SO. IFP« 


000001 




SO. ILD" 


000020 




SO. ION* 


000040 




50. IRD" 


000100 




SO. IRU* 


000004 




SO. ISP" 


^K^^^K ^^^^^^ 

000200 




SI . ICE* 


002000 




51 . lEO" 


010000 




51 , IFM" 


001000 




51 . iMfe* 


000400 




51 . IID* 


004000 




51 . IIR* 


020000 




51 . I2R« 


040000 




51 .PAR" 


100000 




C3 ATT* 
3c .nil* 


OOOOlO 




S2.BTI" 


000004 




S2.0IM. 


000200 




S2.ILU> 


000100 




S2.INR- 


000020 
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52. our- 


000040 




S2.UN0> 


000003 




TILENO- 


003054RG 


002 


TCOASC 


006366R 


002 


TCOCOO 


006566R 


002 


TE»»»1 


003110RG 


002 


TEMP2 


003112RG 


002 


TERCLS" 


000016 




TESTNO" 


000011 




TEXASC 


006325R 


002 


TFCASC 


006427R 


002 


TIMEXP 


015442RG 


002 


TIMSGO 


015470R 


002 


TINERR 


011711R 


002 


TMPBFR 


002624RG 


002 


TNAM 


016576R 


002 


TRANST 


002160RG 


002 


TSBA • 


000000 G 




TSBAH ■ 


000001 G 




TS06 • 


000000 G 




TSOBH • 


000001 G 




TSFCOO 


007126R 


002 


TSREJ • 


000006 




TSSDEF 


0064 76R 


002 


TSSR " 


000002 G 




TSSRBI 


0034 72RG 


002 


TSSRFO 


006305R 


002 


TSSRH " 


000003 G 




TSSX 


004010R 


002 


TSTBLK 


002744RG 


002 


TSTCNT 


^^^^^^^^^^^ 

002206RG 


002 


TSTENO 


0166I2R 


002 


TSTFLA 


002306RG 


002 


TSTLOO 


016350RG 


002 


TSTPTR 


002310RG 


002 


TSTSET 


016402RG 


002 


TST29I 


031677R 


002 


TST30I 


041021R 


002 


TST31I 


046353R 


002 


TST32I 


052460R 


002 


TST33I 


055505R 


002 


TST34I 


06305 7R 


002 


TST35I 


073013R 


002 


TST36I 


100607R 


002 


TST37I 


10524 3R 


002 


TSV2 


002000HG 


002 


TSV3 


002170R(j 


002 


TSV4 


021376RG 


002 


TSv6 


105444RG 


002 


5v7B 


023276HG 


002 


TTIBFR- 


177562 G 




TTICSR" 


177560 G 




TTIVEC" 


000060 G 




TIARGC- 


000003 




T$COOE- 


001130 




TIERRN" 


001620 




T»EXCP" 


000000 
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$FLAG" 


000040 




♦FREE" 


105706R 


002 


$GHAN" 


000000 




»HILI" 


000776 




♦LAST- 


000001 




♦LOLI- 


000000 




$LSYM" 


010000 




»LTNO" 


OOOOll 




♦NEST" 


177777 




»NS0 - 


000000 




»NS1 ■ 


000005 




»NS2 - 


000002 




IPCNT- 


000000 




$PTAB" 


010100 




$PTHV" 


000001 




»PTNU" 


OOOOOl 




$SAVL« 


177777 




$SEGL" 


177777 




♦SIZE" 


000005 




$SUBN" 


OOOOOl 




$TAGL" 


177777 




$TAGN" 


010102 




»TEMP« 


000000 




♦TEST" 


OOOOll 




$TSTM" 


177777 




»TSTS" 


OOOOOl 




$$AU " 


010031 




$$AUT" 


010033 




$(CLE" 


010034 




$$OAT" 


010101 




»»0U - 


010032 




$$HAR" 


010075 




»$HW • 


010000 




»»INI" 


010030 




$*MSG" 


010025 




$ *PC • 


OOOOOl 




$$PRO" 


010027 




% IPTA" 


010100 




\ IRPT « 


010035 




*ISOF" 


010076 




$*SRV" 


010026 




*ISUB" 


010074 




»ISU • 


010001 




IITES" 


010073 




1 


0232 76RG 


002 


1 . 1 


023326R 


002 


1.2 


023756R 


002 


1 . 3 


024500R 


002 


1.4 


025224R 


002 


2 


0321 14RG 


002 


2.1 


032140R 


002 


2.2 


033532R 


002 


2.3 


035156R 


002 


2.4 


035552R 


002 


23A 


003136RG 


002 


23B 


003140RG 


002 


29AM3 


03020 7R 


002 



T29BA 


030624R 


002 


T29BFR 


026112R 


002 


T29BF2 


026230R 


002 


T29B0T 


027556R 


002 


T29BS0 


026230R 


002 


T29BS1 


02623 IR 


002 


T29CNT 


026254R 


002 


T29C0N 


02624 2R 


002 


T29DAT 


026100R 


002 


T290LY 


026260R 


002 


T29DSW 


026110R 


002 


T290TA 


027623R 


002 


T29E0T 


027711R 


002 


T29L0N 


031005R 


002 


T29L00 


023326R 


002 


T29L0P 


03106 7R 


002 


T29L0Q 


027206R 


002 


T29L0R 


027061R 


002 


T29NEF 


0264 lOR 


002 


T29NEQ 


031325R 


002 


T290FL 


026262R 


002 


T290F7 


030275R 


002 


T29PAC 


026070R 


002 


T29PBP 


031151R 


002 


T29PK2 


026200R 


002 


T29PK3 


026220R 


002 


T29RB 


026222R 


002 


T29R0F 


026500R 


002 


T29RDG 


031423R 


002 


T29RES 


031726R 


002 


T29RIB 


031504R 


002 


T29RN 


026236R 


002 


T29RNC 


030134R 


002 


T29RRF 


02654 7R 


002 


T29RRG 


02666 3R 


002 


T29RRN 


031604R 


002 


T29RSZ 


026256R 


002 


T29RT2 


032020R 


002 


T29RT3 


032062R 


002 


T29RWN 


030065R 


002 


T29SC 


026777R 


002 


T29SSR 


027267R 


002 


T29SZ 


026226R 


002 


T29S2 


026232R 


002 


T29S3 


026234R 


002 


T29TM 


030007R 


002 


T29TRL 


031237R 


002 


T29VCK 


03055 IR 


002 


T29UB 


026222R 


002 


T29UDC 


030457R 


002 


T29U00 


030350R 


002 


T29U0E 


027342R 


002 


T29W0F 


027131R 


002 


T29W0R 


026240R 


002 


T29ULK 


027424R 


002 


T29UNG 


026303R 


002 


T29URT 


027511R 


002 
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T29gSS 


030716R 


002 


T3 


041222RG 


002 


T3BFLG 


003142RG 


002 


T3,l 


041252R 


002 


T3.2 


042130R 


002 


T306FR 


036302R 


002 


T30BF2 


036420R 


002 


T30B0T 


037631R 


002 


T 306 SO 


0364 20R 


002 


T30BS1 


036421R 


002 


T30CNT 


036440R 


002 


T30CNU 


036442R 


002 


T300AT 


036270R 


002 


T30DLY 


036446R 


002 


T30DSU 


036300R 


002 


T300TA 


040724R 


002 


T300TR 


040660R 


002 


T30ETM 


03S276R 


002 


T30FCN 


036444R 


002 


T30IBT 


036621R 


002 


T30IBU 


036450R 


002 


T30IMV 


036426R 


002 


T30L00 


032140R 


002 


T30L0Q 


037420R 


00? 


T30NEF 


040366R 


002 


T300FL 


040077R 


002 


T30PAC 


036260R 


002 


T30PK2 


036370R 


002 


T30PK3 


036410R 


002 


T30PTB 


037032R 


002 


T30RB 


0364 12R 


002 


T30R0F 


037203R 


002 


T30R0G 


037261R 


002 


T30RES 


041042R 


002 


T30RIB 


036535R 


002 


T30RN 


036426R 


002 


T30RRM 


040445R 


002 


T30RRN 


040523R 


002 


T30RRP 


040602R 


002 


T30RT2 


041134R 


002 


T30RT3 


041176R 


002 


T30RUN 


040030R 


002 


T30SKri 


036704R 


002 


T30SSR 


037501R 


002 


T30SZ 


C36416R 


002 


T30S2 


036422R 


002 


T30S3 


036424R 


00? 


T30TM 


037676R 


002 


T30TMK 


040304R 


002 


T30TM2 


037753R 


002 


T30TPB 


037123R 


002 


T30VCK 


040231R 


002 


T30UB 


0364 12R 


002 


T30U0C 


040152R 


002 


T30WDD 


036760R 


0C2 


T30U0E 


037552R 


002 


T30UDF 


037343R 


002 
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T31AM3 


044626R 


002 


T32AMS 


T31BA 


045166R 


002 


T328A 


T31B>^R 


043012R 


002 


T328FR 


1 3lBf2 


043130R 


002 


T3280E 


T31BC 


044155R 


002 


T3280T 


T31BS0 


043130R 


002 


T32CM0 


T31BS1 


043131R 


002 


T32CNT 


T31CNT 


043146R 


002 


T32CNU 


T31CNU 


043150R 


002 


T320AT 


T31C0N 


043142R 


002 


T32DLT 


T310AT 


043000R 


002 


T320SU 


T310Ly 


043152R 


002 


T32ECF 


T310SJ 


045010R 


002 


T32E0T 


T31DTA 


046256R 


002 


I 32ERA 


T31E0T 


044350R 


002 


T32L00 


T31L0N 


045330R 


002 


T320PI 


T31L00 


041252R 


002 


T32PAC 


T31L0P 


0454 12R 


002 


T;2PK2 


T31L0Q 


043726R 


002 


T32PK3 


T31L0R 


043601R 


002 


T32RB 


T31N£r 


045650R 


002 


T32RES 


TSIOTL 


044675R 


002 


T32RIB 


T 3 IP AC 


042770R 


002 


T32RT2 


T31PBP 


0454 74R 


002 


T32RT3 


T31PK2 


043100R 


002 


T32RWN 


T31PK3 


• 043120R 


002 


T32SCr 


T31RB 


043122R 


002 


T32SZ 


T31R0E 


043154R 


002 


T32TSA 


T31R0F 


043353R 


002 


T32UB 


T31RES 


046420R 


002 


T32W0C 


T31RN 


043136R 


002 


T338FR 


T31RNC 


044553R 


002 


T33BF2 


T31RRr 


043422R 


002 


T3380T 


T31RT2 


0465 12R 


002 


T33BS0 


T31RT3 


046554R 


002 


T33BSI 


T31RUN 


044504R 


002 


T33CNT 


T31SC 


04351 7R 


002 


T33CNU 


T31SCF 


045771R 


002 


T33C0N 


T31SSR 


04400 7R 


002 


T33DAT 


T31SZ 


043126R 


002 


T33DLY 


T31S2 


043132R 


002 


T330SU 


T31S3 


043134R 


002 


T330TA 


T31TIh 


044250R 


002 


T33L00 


T31TM 


0444 i^7R 


002 


T33PAC 


T31TRL 


045562R 


002 


T33PK2 


T31TSA 


046046R 


002 


T33PK3 


T31VCK 


045113R 


002 


T33RB 


T3IWB 


043122R 


002 


T33RBP 


T31W0C 


04 504 OR 


002 


T33RES 


T31U0D 


044 750R 


002 


T33RN 


T31U0E 


04404 3R 


002 


T33RT2 


T31U0r 


043651R 


002 


T33RT3 


T31W0R 


043140R 


002 


T3SRUN 


T31WNG 


043301R 


002 


T33SSR 


T31.UNM 


043220R 


002 


T33SZ 


T31URF 


046153R 


002 


T33S2 


T31USS 


04524 IR 


002 


T33S3 



113 01 FEB 84 18:55 



051567R 


002 


T33UNC 


054 722R 


051703R 


002 


T33UN0 


055012R 


051162R 


002 


T33U8 


054532R 


052206R 


002 


133UDC 


05532 7R 


051330R 


002 


T33W0R 


054550R 


05130OR 


002 


T33UPU 


054642R 


05133OR 


002 


T34AM3 


062331R 


051332R 


002 


T34BA 


0627 16R 


051150R 


002 


T34BFR 


060422R 


051334R 


002 


T34BF2 


060546R 


051160R 


002 


T34B0T 


061104R 


052275R 


002 


T34BS0 


060546R 


051431R 


002 


T34BS1 


06054 7R 


051636R 


002 


T34CNT 


060542R 


046630R 


002 


T34C0N 


060560R 


052423R 


002 


T340AT 


0604 lOR 


051140R 


002 


T340LY 


060544R 


051250R 


002 


T340SU 


060420R 


051270R 


002 


T34E01 


062055R 


051272R 


002 


T34ET 


061766R 


052520R 


002 


T34ETC 


061027R 


0517S6R 


002 


T34ETN 


061S21R 


0526 12R 


002 


T34ET0 


060652R 


052642R 


002 


T34ETS 


061400R 


051520fl 


002 


T34ETZ 


061472R 


052054R 


002 


T34ET2 


061237R 


051276R 


002 


T34L00 


055732R 


0521 3 IR 


002 


T340FL 


062377R 


051272R 


002 


T34PAC 


060400R 


052356R 


002 


T34PK2 


0605 lOR 


054422R 


002 


T34PK3 


060530R 


054540R 


002 


T34P0S 


060564R 


055165R 


002 


T34RB 


060532R 


054540R 


002 


T34RES 


063102R 


05454 IR 


002 


TS4RNC 


062256R 


054556R 


002 


T34RRE 


0607 36R 


054560R 


002 


T34RSZ 


060540R 


054552R 


002 


T34RT2 


063174R 


0544 lOR 


002 


T34RT3 


0632 36R 


054562R 


002 


T34RUN 


062207R 


054420R 


002 


T34SSR 


061733R 


0554 lOR 


002 


T34STM 


061550R 


0527 16R 


002 


T34SZ 


060536R 


054400R 


002 


T34S2 


060S50R 


0545 lOR 


002 


T34S3 


060552R 


054530R 


002 


T34TM 


062133R 


054532R 


002 


T34TMK 


061633R 


054564R 


002 


T34VCK 


06264 3R 


055522R 


002 


T34UB 


060532R 


054546R 


002 


T34U0 


060554R 


0556 14R 


002 


T54U0C 


06254 IR 


055656R 


002 


TS4U0D 


062452R 


055260R 


002 


T34U0R 


060SS6R 


055101R 


002 


T34USS 


062770R 


054536R 


002 


T34gTM 


061150R 


054542R 


002 


T35AM3 


070646R 


054544R 


002 


T35BA 


071206R 
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002 


T35BFR 


067262R 


002 


TSSUSS 


071261R 


002 


002 


T35BF2 


067400R 


002 


T36AM3 


077153R 


002 


002 


T35B0T 


070220R 


002 


T36BA 


0775 I 3R 


002 


002 


T35BS0 


067400R 


002 


T36BFR 


07S462R 


002 


002 


T359S1 


067401R 


002 


T36BF2 


075600R 


002 


002 


T35CNT 


067416R 


002 


T36B0T 


076525R 


002 


002 


T35CNU 


067420R 


002 


T368S0 


075600R 


002 


002 


T55C0N 


0674 12R 


002 


T36BS1 


075601R 


002 


002 


T350AT 


067250R 


002 


T36CNT 


0756 16R 


002 


002 


T350LY 


067422R 


002 


T36CNU 


075620R 


002 


002 


T350SU 


067260R 


002 


T36C(m 


075612R 


002 


002 


T350TA 


072205R 


002 


T360AT 


075450R 


002 


002 


T35E0T 


070370R 


002 


T360LY 


075622R 


002 


002 


T35INT 


072461R 


002 


T360SU 


075460R 


002 


002 


T35L0N 


071350R 


002 


T360TA 


100512R 


002 


002 


T35L00 


063314R 


002 


T36E0T 


0766 75R 


002 


002 


T35L0P 


071432R 


002 


T36L0N 


077655R 


002 


002 


T35L0Q 


070065R 


002 


T36L00 


073260R 


002 


002 


T35L0R 


067740R 


002 


T36L0P 


077737R 


002 


002 


T35MOT 


072363R 


002 


T36L0Q 


076356R 


002 


002 


T35NEF 


071670R 


002 


T36L0R 


076211R 


002 


002 


T35NIN 


072736R 


002 


T36NAS 


075624R 


002 


002 


T350FL 


070715R 


002 


T36NEF 


1001 75R 


002 


002 


T 350PM 


072552R 


002 


T360FL 


077222R 


002 


002 


T35PAC 


067240R 


002 


T36PAC 


075440R 


002 


002 


T35PBP 


071514R 


002 


T36PBP 


100021R 


002 


002 


T35PK2 


067350R 


002 


T36PK2 


075550R 


002 


002 


T35PK3 


067370R 


002 


T36PK3 


075570R 


002 


002 


T35RB 


067372R 


002 


T36RB 


075572R 


002 


002 


T35R0F 


067512R 


002 


T36R0F 


075763R 


002 


002 


T35RES 


073044R 


002 


T36RES 


100630R 


002 


002 


T35RN 


0t>7406R 


002 


T36RN 


075606R 


002 


002 


T35RNC 


070573R 


002 


T36RNC 


077100R 


002 


002 


T35RRF 


067561R 


002 


T36RRF 


07e032R 


002 


002 


T35RT2 


073136R 


002 


T36RT2 


100722R 


002 


002 


T35RT3 


073200R 


002 


T36RT3 


100764R 


002 


002 


T35RUE 


072650R 


002 


T36RUN 


077031R 


002 


002 


T35RWN 


070524R 


002 


T36SC 


076127R 


002 


002 


T35SC 


067656R 


002 


T36SCF 


100273R 


002 


002 


T35SCF 


071766R 


002 


T36SSR 


0764 17R 


002 


002 


T35SSR 


072302R 


002 


T36SZ 


075576R 


002 


002 


T35SZ 


067376R 


002 


T36S2 


075602R 


002 


002 


T35S2 


067402R 


002 


T36S3 


075b04R 


002 


002 


T35S3 


067404R 


002 


T36TIM 


076620R 


002 


002 


T35TIM 


070313R 


002 


T36TM 


076754R 


002 


002 


T35TM 


070447R 


002 


T36TRL 


100107R 


002 


002 


T35TRL 


071602R 


002 


T36TSA 


100350R 


002 


002 


T35TSA 


072043R 


002 


T36VCK 


077440R 


002 


002 


T35VCK 


071133R 


002 


T36U6 


0755 72R 


002 


002 


T35UB 


067372R 


002 


T3bUDC 


077365R 


002 


002 


T35gOC 


071060R 


002 


T36U0D 


077275R 


002 


002 


T35W0D 


070770R 


002 


T36UDE 


076453R 


002 


002 


T35W0E 


070146R 


002 


T36WDF 


076261R 


002 


002 


T35UDF 


070010R 


002 


T36UDR 


0756 lOR 


002 


002 


T35U0R 


067410R 


002 


T36UNG 


075675R 


002 


002 


T35WNG 


067424R 


002 


T36URF 


1004 32R 


002 


0C2 


T35URF 


072125R 


002 


T36USS 


077566R 


002 
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T37AM3 


103607R 


002 


T37RRF 


102451R 


002 


T6. 


1 


055732R 


T378A 


104147R 


002 


T37RT2 


105356R 


002 


T7 




063264RG 


T37BPR 


102152R 


002 


T37RT3 


105420R 


002 


T7. 


1 


063314R 


T378F2 


102270R 


002 


T37RUN 


103465R 


002 


T7. 


2 


064372R 


T37BOT 


103161R 


002 


T37SC 


102546R 


002 


T7. 


3 


0654 52R 


T376S0 


1022 70R 


002 


T37SCF 


104727R 


002 


T7. 


4 


066314R 


T37BS1 


1022 7 IR 


002 


T37SSR 


103056R 


002 


T8 




073224RG 


T37CNT 


102306R 


002 


T37SZ 


102266R 


002 


T8. 


1 


073260R 


T37CNU 


102310R 


002 


T37S2 


102272R 


002 


T8. 


2 


074334R 


T37C0N 


102302R 


002 


T37S3 


1022 74R 


002 


T9 




lOlOlORG 


T37DAT 


102140R 


002 


T37TIM 


103254R 


002 


T9. 


1 


101044R 


T370LT 


1023 12R 


002 


T37TM 


1034 lOR 


002 


UAM 


■ 


000200 G 


T370SW 


102150R 


002 


T37TRL 


104543R 


002 


UNITN 


002174RG 


T370TA 


105146R 


002 


T37TSA 


105004R 


002 


UNREC ■ 


000006 


T37E0T 


103331R 


002 


T37VCK 


104074R 


002 


US I 




004113R 


T37L0N 


104S11R 


002 


T37UB 


102262R 


002 


UAITF 


016140RG 


T37LOO 


101044R 


002 


T37W0C 


104021R 


002 


UC. 


IFA- 


000200 


T37L0P 


104373R 


002 


T37W00 


103731R 


002 


UC. 


IFE- 


000002 


T37L0Q 


102755R 


002 


T37W0E 


103072R 


002 


UC. 


IGO- 


000001 


T37L0R 


1026 30R 


002 


T37WOF 


102700R 


002 


UC. 


IRE- 


000010 


T37Ntr 


104631R 


002 


T37W0R 


102300R 


002 


UC. 


TRU- 


000004 


T370FL 


103656R 


002 


T37UNG 


102314R 


002 


UC. 


lOT- 


000100 


T37PAC 


102130R 


002 


T37WRF 


105066R 


002 


UC. 


IIT- 


^^^^^^^^ M 

000040 


TT7DDD 
1 3 frOr 


1 /\Jl A CCD 








AAO 


UC. 


I5R- 


AAAA^A 


r37PK2 


102240R 


002 


T4 


046600RG 


002 


UF. 


lED- 


000010 


T37PK3 


102260R 


002 


T4.1 


046630R 


002 


UF. 


lER- 


000004 


T37RB 


102262R 


002 


T4.2 


047470R 


002 


UF. 


IHI- 


000200 


T57RDF 


102402R 


002 


T4.3 


050300R 


002 


UF. 


IRE- 


000040 


T37r<ES 


105264R 


002 


T5 


052666RG 


002 


UF. 


lUF- 


000020 


T37RN 


1022 76R 


002 


T5.1 


052716R 


002 


UF. 


lUR- 


000100 


T37RNC 


103534R 


002 


T6 


055702RG 


002 


UF. 


I3R- 


000002 



. ABS. 000000 000 

000000 001 

ABS 105706 002 

ERRORS DETECTED: 0 
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002 


UF.I4R- 


000001 




Xf ALUA- 


000000 


002 


^rCHR 


010552RG 


002 


X»FALS- 


000040 


002 


URTERR 


005103R 


002 


XIOFFS- 


000400 


002 


URTMSG 


005046R 


002 


x$TRue- 


000020 


002 


USMBK 


021100RG 


002 


XI. COR- 


020000 


002 


XFERAS 


015630R 


002 


Xl.OLT* 


100000 


002 


XNXM 


016266R 


002 


Xl.MBZ- 


0173/5 


002 


XORBFO 


007564R 


002 


Xl.RBP- 


000400 


002 


XORFOR 


007702R 


002 


Xl.SPA- 


040000 


002 


XSTO ■ 


000006 G 




Xl.UNC" 


000002 


002 


XSTl - 


000010 G 




X2 . BUF • 


000100 




XST2 


000012 G 




X2.EXT- 


000200 


002 


XST3 " 


000014 G 




X2.0PM" 


100000 




XST4 • 


000016 G 




X2.HCE" 


040000 


002 


XSMOT" 


000002 




X2.REV" 


000077 


002 


XSOEOT- 


000001 




X2.SPA" 


035400 




XSOIE ■ 


000040 




X2 . 'JNI ■ 


000007 




XSOILA" 


000400 




X2.UCF- 


002000 




XSOILC» 


a ^^^^^^ 

001000 




X3.0CK" 


000010 




XSOLET" 


020000 




X3.MBZ" 


000006 




XSOMOT" 


000200 




X3.M0E* 


177400 




XSONEF * 


002000 




X3.0PI* 


000100 




XSOONL" 


000100 




X3.REV- 


000040 




XbOPtD" 


AAAA 1 A 
QQOOlO 




X3 .RIB " 


000001 




XSORLL- 


010000 




X3.SPA- 


000200 




XSORLS* 


040000 




X3.TRF- 


00002C 




XSOTMK- 


100000 




X4.M5P- 


100000 




XSOVCK- 


000020 




X4,MBZ« 


017400 




XSOULE" 


004000 




X4.RCE- 


040000 




XSOWLK' 


000004 




X4.TSM- 


020000 




XXCOMM 


003114RG 


002 


X4.URC* 


000377 



